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Alguna vez penso en 
organizar su propio cam- 
peonato de fotbol? 
Ha Ilegado ese momento. 
Invente un uniforme para sus jugadores, elija entre sus 
equipos favoritos y reclute a los mejores futbolistas, 
creando asi un equipo campebn, dorado 
con los mejores jugadores 
de todos los tiempos... 
"SU EQUlPO 
SERA EL CAMPEON". 
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opiniones wtidos par sus 
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160 ptas. (inc/uida t.V.A.) 
Canarias, 155 p/as. ÷ 10 p/as. sobretasa aerea. 
Ceuta y Mel/lla, 155 pfas. 
Inteligencia " 
artifical 
Comprender /as es/ructuras de dates qua puede 
manel'ar el LISP, es absolutamente esendal pare 
detainer los tdcnicos de/a IA. La mas /roper/ante, sin 
dude,/as listas, de la cual se derivan directamente 
los drbo/es. Descubre coma mane/arias y apticarlas 
en lus prop/as creac/ones. 

Serie ore 

Nuevamente gesli6n, pare con una col/dad y una 
presentation qua se sa/en fuera de Io careen. 
DATABASE, un programa qua difidlmenle pasard 
desapercibido. 

: - "m  auina 
Aprende c6mo uti/izar /a zona de/firmware que 
con/role los co/ores de/a pluma y el pope/de la 
pantallo. 

Primeros 
poses 
Muchas y var/adas son/as/nstrucc/ones que 
semona a semano, heroes/do descubriendo y 
ap/icando o nuesfro ordenador, ahora es el 
memento de recapifular y comprobar nuestros 
conodmientos st'guiendo, paso a pose, el disefio de 
un conocido programa de jueo: e/fronl6n. 
Programacci  n 
Eecuerdan el reductor de pan/olios?. Bien, pues 
ohora /o hacemos a/contrario. MAGNISCEEEN es 
topaz de amp/t'ar basle el infinite, modifique sus 
grdficos con este magnifico zoom. 

La aventura con/re los vortones confina. Un 
programa de asombrosos gr6ficos y qua acabara 
con la pacienda de rods de uno, pare qua con su 
espectacutaridad y adicci6n compensa, compensa y 
mucho. 
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FA CTURA CION 256 

Aplicaci6n: 
Facturaci6n, almacn y presupues- 
taci6n. 
Equipo: 
Amstrad PCW8256 
Capacidad.. 
200 clientes. 
1.000 articulos. 
1.500 apuntes de albar6n. 
Informes y documentos: 
Listado general de clientes. 
Listado de albaranes penientes de 
facturar. 
Listado general de articulos. 
Listado de stocks bajo minimos. 
Confecci6n de albaranes. 
Confecci6n de abonos. 
Confecci6n de facturas. 
Confecci6n de presupuestos/pro- 
3uestas de pedido. 

par Zelig Software 

caste y el precio de venta. Permite al- 
tas, bajas y modificaciones. AI factu- 
rar, el programa da coma salida la 
cantidad facturada. Para tener per- 
manentemente actualizado el alma- 
c6n, existe la opci6n de entrada de 
arficulos en almacn. 
El proceso de facturaci6n se reali- 
za a trav6s de la introducci6n de 
apuntes de albar6n. Es optativa la 
confecci6n par impresora de los al- 
baranes. 
El programa permite realizar aboo 
nos a un cliente. Aparecercn en la 
factura disminuyenda el importe. 
La numeraci6n de facturas y alba- 
ranes puede ser autom6tica o ma- 
nual. 

Descripci6n: 
El programa de facturaci6n Zelig 
proporciona al usuario una herra- 
mienta de trabajo fiable, de f6cil 
nejo y de gran utilidad para la em- 
presa. Las opciones est6n organiza- 
das en forma de 6rbol --directorio 
y subdirectorios--, proporcionando 
un acceso 16gico que facilita el 
aprendizaje sabre su manejo. 
El programa utiliza dos ficheros 
maestros: 
1. Fichero de clientes, con los si- 
guientes campos: C6digo, hombre, 
CIF/DNI, R6gimen Fiscal, domicilio, 
poblaci6n, provincia, C6digo Postal, 
tel6fono y persona de contacto. Per- 
mite altas, bajas y modificaciones. 
2. Fichero de articulos, que con- 
templa el stock en almac6n, la canti- 
dad minima en stock, el precio de 

La opci6n de confecci6n de presu- 
puestos proporciona 15 Iineas en las 
que puede anotar articulos existen- 
tes, articulos no dados de alta o li- 
neas de texto. 
Los presupuestos contemplan el re- 
cargo par IVA y los descuentos. 
Todos los listados se pueden reali- 
zar par impresora o par monitor. 
Otras caracteristicas: 
Los ficheros son en <tiempo reab, 
proporcionando mayor seguridad en 
el manejo de los datos. 
Para aprovechar la m6xima capa- 
cidad del disco, los programas se 
cargan en la memoria virtual (RAM- 
DIS). 
La carga del programa se realiza 
de farina autom6tica a travs del fi- 
chero <<PROFILE SUB. 

E FABRICARAN 
AM.el'RAgS 
EN ESPAIfM? 

I rumor, en el sen- 
lido de la posible abricoci6n de or- 
denadores mllra en nuesfro pals 
a cargo de Iel¢m, disfribuido- 
ra oficial de Io compaffi brifanica, 
ha cobrado Olfimamente 9ran eco, 
hasta el punlo de convertirse en uno 
de los famosos (secretos a votes me- 
jar guardados. 
Puestos al habla con los m6ximos 
responsables de Indescomp, has co- 
municaron que, efectivamente, el 
proyecto existe, pero se encuentra en 
la fase correspondiente al estudio de 
viabilidad econ6mica. 
Coma todos nuestros lectores saben, 
hay par hay, los Amstrad se fabrican 
en ¢orea par razones de abarata- 
miento de castes, especialmente la 
mano de obra. En Espafia dicha ma- 
no de obra saldria a un precio supe- 
rior al coreano, pero influyen otros 
muchos lactates coma el del trans- 
porte, par ejemplo, que deben set 
profundamente estudiados. Par ella, 
siempre seggn Indescomp, el plan se 
encuentra en el estadio que podria- 
mos Ilamar jornada de reflexi6m. 
Si todo esto sale adelante, Espafia 
podria verse convertida en el centro 
de distribuci6n de productos Ams- 
trad para toda Europa. 
Par otra parte, Indescomp se mostr6 
entre divertida y sorprendida par las 
declaraciones que aparecieron en al- 
gunos peri6dicos en el sentido de que 
tal proyecto se ha desencadenado a 
instancias de la Administraci6n, 
cuando elias, personalmente le co- 
municaron la idea a Alan Sugar ha- 
ce ms de un aria. Parece que, con 
esto de los mundiales de diversos de- 
portes, mucha gente busca apuntar- 
se tantos. 
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LISTAS. LISP 

Y RECURSION 

Par oerto Gerrote Berne/ 

Los que conozc6is algo del leng'uaje de 
orogramaci6n LISP o hayis seguldo los artculos 
a( In.teligencia Ar.tifical que ban. aparecido en esta 
rewsta ya sabreis que la pri.n.cpal estructura de 
datos que maneja LISP es la hsta (en Basic son las 
matrices). Para aclarar las ideasy .comprender 
mejor las explicaciones que siguen, contar 
primero c6mo se representan las listas en LISP. 

a memoria que reserva 
para su usa el geniecillo de LISP (el int6rpre- 
te) est6 dividida en nodos, cada uno de los 
cua[es est6 formado par dos punteros (dos di- 
reccianes de la memoria): uno se llama 
y el otto CDR. (Estos nombres, queen princi- 
pio pueden parecer caprichosos, tuvieron su 
origen en la primera implementaci6n que se 
hizo de LISP, sabre un IBM 704. Algunas de 
las instrucciones de esa m6quina hacian refe- 
rencia al contenido del registro de direccio- 
nes (Contents of Adress Register, CAR) y al 
contenido del registro de disminuci6m (Con- 
tents of Decrement Register, CDR)). Excepto 
los 6tomos (literales o numeros), cualquier 
otro objeto que maneje LISP est6 construido 
mediante la agregaci6n de estos nodos (en 
LISP se Ilaman pares). Es coma si fueran los 
ladrillos de una casa. Veremos que esta estruc- 
tura es muy vers6til y que con ella se puede 
edificar casi cualquier cosa. 
En el articulo del Especial n. ° 2 ya vimos 
que la funci6n CONS servia para construir pa- 
res. Par ejemplo, (CONS'A 'B) crea un nuevo 
nodo con el puntero CAR apuntando al 6to- 
mo A y el puntero CDR apuntando el 6tomo 
B. El resultada se puede ver en la fig. 1. La 
funci6n CAR aplicada a un par nos devuelve 
aquello que est6 siendo apuntando par el pun- 
tero CAR del par. Siguiendo con el ejemplo 
anterior, (CAR '(A.B)) has da el tomo A. El 
caso de la funci6n CDR es semeiante. Veamos 
ahora c6mo se construyen listas usando pa- 
res. Dar6 de nuevo la definici6n de lista: 

6 ',,,c.O.o AMSTRAD 

1 .--La lista vacia 0 es una lista (tambi6n es 
un 6tomo, el 6tomo NIL). 
2.--Si $1 es una lista a un 6tomo y $2 es 
una lista entonces el par que tiene coma CAR 
$1 y coma CDR $2 es una lista. (Se dice en- 
tonces que $1 es el primer elemento de la lis- 
ta y $2 es el resto de la lista). 
Adem6s los 0nicos objetos que son listas son 
los descritos par los puntos 1 y 2. 
Algunos ejemplos de listas son: 
() Par el punto 1 de la definici6n. Es la lis- 
ta vacia. 
NIL Es exactamente el mismo objeto que 
0. 
(A. NIL) Par el punto 2: A es un tomo 
y NIL es una lista. 
(A. ()) Igual que el anterior. 
(A) Es una representaci6n en forma de lista 
de (A. NIL). 
(A. (B)) Par el punto 2: A es un tomo y 
(B) es una lista. 
(A B) Es una representaci6n de (A. (B)). 
((A). (A B)) Par el punto 2: (A) es una lista 
y (A B)tambin. 
((A) AR) Es la representaci6n en forma de 
lista del anterior. 
Aromas y pares constituyen las S- 
expresiones. A partir de esta definici6n po- 
demos imaginarnos las S-expresiones coma 6r- 
boles donde las hojas son los 6tomos y los pun-. 
tos de ramificaci6n son los pares. Algunos 
eiemplos se pueden ver en la fig. 2. 
Las listas, coma S-expresiones que son, 
tambi6n se pueden representar de esta forma. 
De hecho, la fig. 2. (c) representa una lista, 
pues NIL es una lista y C es un 6tomo, luego 
el par (C. NIL) es una lista. Considerado co- 
ma lista, este par se escribe coma (C). De la 
misma forma (B. (C. NIL)) es la lista (B C) y 
(A. (B. (C. NIL))) es la lista (A B C). Algunas 
personas prefieren representar las listas de for- 
ma diferente, coma en la fig. 3, pero ambas 
son equivalentes. 



Con todos estos conocimientos podemos co- 
menzar ya a manipular listas. En Io que resta 
de articulo utilizar para los ejemplos el int6r- 
prete de MINILISP que apareci6 en el Espe- 
cial AMSTRAD n. ° 2. No es imprescindible su 
uso para la comprensi6n de Io que voy a con- 
tar, pero si puede set una gran ayuda. 

.. ,' or el leng .(: 
: s f6cil 

En primer lugar vamos a empezar cambian- 
do algunos nombres. LISP es un lenguaje que 
facilita en gran medida la comprensi6n de los 
programas. Para aumentar la degJbJlidad 
de los mismos, LISP permite la utilizaci6n de 
identificadores (6tomos) bastante largos (en 
MINILISP el tamao m6ximo es de 255 carac- 
teres, pero se ha calculado una media de 8 
caracteres por cada 6tomo, de modo que en 
principio no te preocupes pot esto). La funci6n 
CAR aplicada a una lista nos da su primer ele- 
mento. El hombre CAR no nos dice mucho, de 
modo que definiremos una funci6n PRIMERO 
que nos dar6 el primer elemento de una lista. 

> (DE PRIMERO (LIS) (CAR LIS)) 
La funci6n CDR nos do el resto de una lista, 
asi es que d6mosle este nombre. 
> (DE RESTO (LIS)(CDR LIS)) 

Espero que os aparezca m6s clara la expre- 
si6n (PRIMERO '(A B C))que (CAR '(A B C)), 
aunque ambas valen Io mismo, como puedes 
comprobar haci6ndole ambas preguntas a tu 
geniecillo de MINILISP. Podriamos ahora es- 
cribir funciones que calculen los elementos se- 
gundo tercero, etc. de una lista, pero en su 
lugar vamos a escribir una funci6n general pa- 
ra que podamos acceder a cualquier elemen- 
to. Fsta funci6n habr6 de tener dos argumen- 
tos: el primero ser6 el lugar que ocupa el ele- 
mento de la lista que queremos conocer y el 
segundo ser6 la propia lista. Supongamos que 
Ilamamos a esta funci6n N-ESIMO. Fnton- 

ces 

> (N-ESIMO 4 '(A B C D E)) 
ser6 D, y 
> (N-ESIMO (+2 I)'(A B (C. D)(E F))) 
ser6 (C. D), ya que (+2 I) vale 3 y el tercer 
elemenfo de la lista es (C. D). Recordemos que 
LISP evalOa los argumentos de los funciones 
que se definen con DE. Aqui Ilega la defini- 
ci6n de la funci6n N-ESIMO 

> (DF N-ESIMO (N LIS) 
> (COND 
> ((=N I)(PRIMERO LIS)) 
> (T (N-ESIMO (SUB N I) (RESTO LIS))) 

Esta funci6n est construida de la forma en 
la que habitualmente se hacen las funciones 
en LISP: 
1 .--Busca el caso m6s sencillo posible y re- 
su61velo. 
2.--Para los casos que no se resuelvan en el 
punto 1, reduce el problema a t6rminos un po- 
co m6s sencillo y luego aplica a este proble- 
ma reducido el algoritmo general. 
Seguro que con un ejemplo se aclara todo 
esto. Tomemos el caso de la funci6n N-ESIMO. 
En LISP s61o se puede acceder directamente 
al primer elemento de una lista. Por tanto, el 
caso m6s sencillo es cuando queremos cono- 
cer el primer elemento de la lista, y esta es la 
primera condici6n que hemos puesto. Adem6s 
ya sabemos calcular el primer elemento de una 
lista: con la funci6n PRIMERO. La expresi6n 
(COND ((=N 1)(PRIMERO LIS))... se podria 
interpretar como Io siguiente: Si N es igual 
a 1 entonces el N-ESIMO elemento de una lista 
es su primer elemento. El resto de los casos 
se consideran m6s complicados 'C6mo pode- 
'8 
mos reducirlos a casos m6s sencillos? Bien, 
pues supongamos que queremos calcular el se- 
gundo elemento de una li,:ta. Para ello s61o 
disponemos de las funciones que nos dan el 
primer elemento de una lista y el resto de la 
misma. Tomemos una lista, por ejemplo: 

(A B C) 

Esta lista tiene como primer elemento el 6to- 
mo A y como resto la lista. 

(B C) 

El segundo elemento de la lista (A B C) es 
B, pero B es el primer elemento de la lisla (B 
C) Es decir, que e segundo elemento de una 
lista es el primer elemento del resto de la lis- 
ta. Vamos a definir la funci6n que nos da el 
segundo elemento de una lista para que Io en- 
tiendas mejor: 

((DE SEGUNDO (LIS)(PRIMERO (RESTO 
LIS))) 

Y para calcular el tercero, qu6 habr6 que 
hacere. El tercer elemento de la lista (A B C) 
es C, que a su vez es el segundo elemento de 
la lista (B C). 0 sea, el tercer elemento de una 
lista es el segundo elemento del resto de la lis- 
ta. Y ya sabemos calcular el segundo elemen- 
to de una lista 

((DE TERCERO (LIS] (SFGUNDO (RESTO 
LIS))) 

 oo,o AMSTRAD 7 



CAR 

CDR 
I 
B NIL C NIL 

NIL 

B C 

D NIL 

En resumen: 
| o--Sabemos celculer el primer elemento 
de une lista utilizendo le funci6n PRIMERO. 
2.--Pere calculer el segundo elemento de 
una Jista bosta con celcular el resto de une lisle 
y su primer elemento. Pare celculer el tercer 
elemento de una lisle beste con celculer el res- 
to de la Jiste y su segundo elemento... 
(EI eJemento que ocupa le posici6n N en una 
lisle es el mismo eJemento que ocupo la posi- 
ci6n N-I en el resto de la lista (siempre que 
N see mayor que I). Esto es iustomente lo que 
dice la segundo porte de la expresi6n condi- 
cional que define la funci6n N-ESIMO. Pode- 
rues ahoro unir les piezas pora entender el sig- 
nificodo de Io expresi6n conditional. 

(COND 
((=N l)(PRIMERO LIS)) 
(T (N-ESIMO (SUB N1)(RESTO LIS))) 

(Si N es iguol a 1 entonces el elemento que 
ocupa Io posici6n N de una lista es su primer 
elemento. En otro caso (si N es mayor que 1), 
el elemento que ocupa la posici6n N de una 
lista es el que ocupa la posici6n N-1 en el res- 
to de la lista,. 

iRecursos recursivol 

Con esto he cumplido en porte con Io que 
os prometi la semane pasada: hoblar de la re- 
cursi6n. Si, porque la funci6n N-ESIMO tom- 
bi6n es recursiva. El esquema de construcci6n 
de funciones LISP que dimos antes tambin es 

recursivo, m6s aun, es el fundamento de los 
algoritmos recursivos. Es casi seguro que aOn 
habr6 elguien que se pregunte c6mo es posi- 
ble que estes definiciones, que utilizan Io que 
se quiere definir, funcionen; isi es que de ver- 
dad funcionen, claro! Como nos gusto demos- 
trar nuestras afirmaciones, vamos a compro- 
bar que si que funcionan y adem6s vamos a 
ver c6mo Io hacen. Si no Io habias hecho ya, 
escribe la definici6n de la funci6n N-ESIMO 
junto con los de los funciones PRIMERO y RES- 
TO en tu int6rprete de MINILISP, en el orden 
en que mas te guste porque a tu geniecillo le 
da igual. &Ya est6? Perfecto. Ahora teclea: 
> (TRACE '(N-ESIMO)) 
Recuercle que el simbolo (< > > es el indica- 
five cle que MINILISP est, dispuesfo, os( que 
tO no debes escribirlo. Vamos o eiecutar aho- 
ra la funci6n N-E$1MO pare unos datos con- 
cretos e iremos observando c6mo cambian los 
valores de los parametros o Io largo de Io eje- 
cuci6n y c6mo se va devolviendo hacia arri- 
ba el valor calculado. Escribe: 

> (N-ESIMO)) 4 '(A B C D E F)) 

Y poco a poco ir6 apareciendo Io siguiente 
en la pantella de tu computadora: 

ARGUMENYb DE EVAL: 
(N-ESIMO 4 (QUOTE (A B C D E F))) 
ARGUMENTO(S) DE N-ESIMO: 
(4 (A e C D E F)) 
ARGUMENTO(S) DE N-ESIMO: 
(3 (B C D E F)) 
ARGU/vIENTO(S) DE N-ESIMO: 

(2 (C D E F)) 
ARGUMENTO(S) DE N-ESIMO: 
(l (D E F)) 
VALOR DE N-ESIMO: 
D 
VALOR DE N-ESIMO: 
D 
VALOR DE N-ESIMO: 
D 
VALOR DE N-ESIMO: 
D 
TEMPO 8.14 VALOR: 
D 
Es posible que el tiempo no sea el mismo, 
ya que a veces el geniecillo de MINILISP se 
muestra un poco perezoso, pero todo Io de- 
m6s deberia ser igual. Se observe bien c6mo 
segOn bajamos en la secuencia de Ilamadas 
va disminuyendo el per6metro numrico (4, 
3, 2, 1) ala vez que disminuye el tamaffo de 
la lista y nos acercamos m6s al elemento que 
queremos obtener: D. Finalmente, cuando se 
alcanza la condici6n de lerminaci6n -el ca- 
so m6s simple, o sea, cuando N vale 1- se 
calcula el valor de la funci6n y este valor se 
transmite hacia arriba, a troves de la secuen- 
cia de Ilamadas, para emerger finalmente. 
La recursi6n el LISP funciona bien siempre 
que se verifiquen dos condiciones: 
(a) Que la acci6n que hay que realizer 
cuando la condici6n de terminaci6n se cum- 
pie no dependa de la funci6n que se preten- 
de definir. 
(b) Que cada vez que se haga una llama- 
da recursiva los argumentos de la funci6n se 
(parezcan, un poco m6s a los argumentos de 
le condici6n de terminaci6n. 



I ,•u se parece a que. t 

El concepto de parecido entre argumen- 
tos depende del problema de que se trate. En 
el caso de la funci6n N-ESIMO la condici6n 
de terminaci6n en que N sea igual a 1. Par 
tanto, podemos considerar que un argumen- 
to se parece m6s que otro al argumento de 
la condici6n de terminaci6n si est6 m6s pr6xi- 
mo a 1. Par ejemplo, 3 est6 m6s pr6ximo que 
5. 
La acci6n a realizar cuando la condici6n de 
terminaci6n se cumple es calcular el primer ele- 
mento de la lista. Para hacer esto usamos la 
funci6n PRIMERO, que no depende de la 
funci6n N-ESIMO. Par Io tanto, la condici6n 
(a) se cumple. La condici6n (b) se cumple siem- 
pre que el valor que asignemos a N (a tray,s 
del mecanismo de paso de par6metros, del 
que hablamos la semana pasada) sea mayor 
o igual que 1. Si N vale 1 entonces se verifica 
la condici6n de terminaci6n. Si N es mayor que 
1 entonces el intrprete de MINILISP va a in- 
tentar calcular: 
(N-ESIMO (SUB N I)(RESTO LIS)) 
(SUB N I) Vale N-I, luego en la siguiente 
iteraci6n N vaJdria una unidad menos y, par 
Io tanto, estaria m6s pr6ximo a 1 que antes. 
Los problemas surgen cuando N es menor que 
1. En ese caso, al hacer (SUB N1), has aleja- 
mos cada vez un poco m6s de 1. Los resulta- 
dos son catastr6fi¢os coma puede obser- 
varse en la ejecuci6n de (N-ESIMO -1 '(A B 

ARGUMENTO DE EOL: 
(N-ESIMO -I (QUOTE (A B C D))) 
ARGUMENTO(S) DE N-ESIMO: 
(-I (A B C D)) 
ARGUMENTO(S) DE N-ESlMO: 
(-2 (B C D)) 
ARGUMENTO(S) DE N-ESIMO: 
(-3 (C D)) 

ARGUMENTO(S) DE N-ESIMO: 
ARGUMENTO(S) DE N-ESIMO: 
(-5 NIL) 
ARGUMENTO(S) DE N-ESIMO: 
(-6. * * * POCOS ARGUMENTOS O DE TI- 
PO ERRONEO 
• * * POCOS ARGUMENTOS 0 DE TIPO 
ERRONEO 
• * * POCOS ARGUMENTOS 0 DE TIPO 
ERRONEO 

En ese momenta presionamos la tecla [ESC] 
dos veces para cortar la ejecuci6n del progra- 
ma, pues en otro caso jam6s hubiese acaba- 
do. (Si tO has probado a hacerlo antes que no- 
sotros debes escribir GO'I'O 61000 para 
continuar en MINILISP. Si esperas m6s tiem- 
po hasta que aparezca el error de BASIC <Me- 
mary fulh s61o tendr6s una alternativa: apa- 
gar la computadora y volver a cargar el in- 
trprete de MINILISP). 
Para que nos ocurran este tipo de cosas po- 
demos hacer dos cosas: una es definir N- 
E$1MO de la siguiente forma (no Io escribas 
todavia que esta soluci6n es la mab) 

> (DE N-ESIMO2 (N LIS) 
> (COND 
b ((> N I) '(NADIE ME HA PROGRAMA- 
DO PARA QUE CALCULE ESE ELEMENTO)) 
 ((=N I) (PRIMERO LIS)) 
 (T (N-ESlMO2 (SUB N I)(RESTO LIS))) 

Por qu digo que esta soluci6n es mala? En 
caso de que N sea menor que 1 la Funci6n 
aborta inmediatamente, pero si N es mayor 
o igual que 1 la primera vez nunca podr6 ser 
menor que 1, luego cada vez que recursiva- 
mente se llama o N-E$1MO2 hay que pre- 
gunfar si N es menor que I, ounque ya sabe- 
mosque no puede serlo. Para ahorrornos el 

tiempo que se tarda en hacer esto pregunta, 
Io haremos s61o la primera vez, de la siguien- 
te forma (ahora ya la puedes copiar porque 
sta es (la buenm. Para hacer esto debes bo- 
rrar antes la antigua definici6n con (REMPROP 
'N-ESIMO 'EXPR) y desdoblar entonces el cur- 
sor para copiar el trozo de definici6n que te 
valga. Para desdoblor el cursor debes pul- 
sar simult6neamente una de las teclas que 
mueve el cursor y [SHIFT]) 

> (DE N-ESlMO (N LIS) 
> (COND 
> (( > N I) '(NADIE ME HA PROGRAMA- 
DO PARA 
> QUE CALCULE ESE ELEMENTO)) 
> (T (N-ESIMO-AUX N LIS)) 
>)) 
> (DE N-ESIMO-AUX (N LIS) 
> (COND 
> ((=N I)(PRIMERO LIS)) 
> (T (N-ESIMO-AUX (SUB N I)(RESTO LIS))) 

Hasto el pr6ximo articulo te puedes ir en- 
frefeniendo comporondo los tiempos de eje- 
cuci6n de los dos nuevos versiones de la fun- 
ci6n que colculo el n-esimo elemento de uno 
listo: N-FSIMO y N-ESlMO2. Otro eiercicio in- 
leresonte puede ser orreglor Io funci6n FAC- 
TORIAL que dimos la semana pasoda de for- 
ma que para los nOmeros negativos de un 
mensaje de error, de igual forma que hemos 
hecho con N-ESIMO. 

LAS ASIGNATURAS PENDIENTES .I 
• SOCIALES • NATURALES • MATEMATICAS • LENGUAJE • 
DE: 5' 6' 7"y 8' EGB 
Prograrna para ejercicios de ortografia .E.D.O_.R.T.O. 
Programa para ejercicios de atencibn y comprensibn .E.D_A.C.L.E_ 
Programa para ejercitar el instrumento lector .E_J_E.I.L.E 
en MSX y AMSTRAD.. 1800ptas Cassette  2750 Disco 

- PRECIO ESPECIAL  CURSO COMPLETO EGB ..... 3500 ptas, 
PEDIDOS :GOE  NE CUARTELES,43-|°- 29002- MALAGA- TEL.311877 
.............. regalo de un reloj porcada cassette o disco ,. 



En tu kiosco te espem 

algo muy inteligente 

El AMSTRAD Especial nfimc- 
ro 2 incluye una cinta de cas- 
sette adherida a la portada con 
un lenguaje Lisp completo qtlc 

te permitifi comprender y do- 
minar las tdcnicas ms comple- 
jas de inteligencia artificial. 
Pot si fuera poco, cn nucstra 

Rn INotpmotum 4 Usu,tos 
475 ptas. 
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ATEN¢IO , NUESTRO 
FABU¢OSO Co, u.so. 
PUEDES GA A" l• 
CPC-6128 CON 
SOLO CARGAR LA C/NTA 

cinta so incluyen tambidrl dos 
concursos: uno, de disefio grfi- 
rico de pantallas, para artistas, 
te permitirfi ganar hasta 
170.000 pesetas en premios. En 
el segundo rcgalamos lli1 orde- 
nador Amstrad CPC6128. 
E1 n0mero 2 de AMSTRAD 
Especial n'ata un amplio espec- 
tro de in{eresanles tcmas, co- 
mo un comparativo de impre- 
,oras, que le ayudarfi a elegir 
la ms adecuada a sus necesi- 
dades, como multitud de pro- 
gramas y rutinas de utilidad en 
lenguaje mfiq ulna como u n pa- 
quote de soft integrado, con 
Ires plograillas ell uiR) y I.ll] lar- 
go elcdteia clue sofia demasia- 
do proli.io dctalhir. 
Si I10 10 ellCUelltras ell Iu kiosco, 
solicitalo directamente 
a nuestra Editorial. 
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CASTELLANO, GARANTIA OFICIAL 
AMSTRAD ESPARA, DISCO CON SIS- 
TEMA OPERATIVO CP/M 2.2 Y LEN- 
GUAJE DR. LOGO, DISCO CON SISTE- 
MA OPERATIVO CP/M PLUS (CP/M 
3.0) Y UTILIDADES, DISCO CON SIETE 
PROGRAMAS DE OBSEQUIO 

84.900 Pts. + ,.v.A. 
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RIOR PERO CON MONITOR EN COLOR. 
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SABE JUGAR 
At FRONTON? 

Hemos pensado que la mejor forma de cerrar esta 
serie de artlculos donde se has contaban los 
distintos modos de mover un objeto par la 
pantalla y, adem6s, c6mo aplicar correctamente 
las distintas funciones de lectura del teclado, es 

ver un ejemplo pr6ctico en el que est recogida la 
mayor parte de los distintos caso$ comentado$. 

r Hay mejor resumen, o 
por Io menos mas divertido, que el diseo y 
realizaci6n de un juego? 
Pot supuesto que no se va a tratar de una 
cosa muy sofisticada, modelo de perfecci6n y 
complicaci6n, pero seguro que servira pora 
despejar los qoquitas dudas que tenga 
sobre el tema, a la par que podra utilizarlo 
para pasar agradablemente alguna que otra 
tarde ociosa. 
Qu le parece si nos ponemos a trabal'ar?. 
Lo primero que haremos sera definir con la 
mayor claridad cuel es nuestra idea. 

Diseo 
de una idea 

Aunque setrate de un cl6sico de los jue- 
gos de ordenador, se nos ha ocurrido que 
nuestro juego ser6 el tilico front6n (o muro), 
en el que nosotros golpearemos con una pa- 
leta una bola que ira rebotando en los pare- 
des del mismo, hasta que nuestros reflejos no 
sean Io suficientemente rapidos y no podamos 
devolverla. 

La partida terminar5 cuando se nos hayan 
terminado las cinco bolas que poseemos al 
principio de la jugada. 
Ademas vamos a inlentar que podamos ele- 
gir las teclas con los que movemos la paleta. 
Asi adaptaremos el juego a nuestro gusto pa- 
ra batir los {r¢orcls con mayor facilidad. 
Para su diseao seguiremos, en la medida que 
sea posible, el metodo de descomponer el pro- 
grama en pequeaos submadulos o subrutinas 
que realicen acciones muy concretas y senci- 
Ilas. Todas elias van a ser controladas desde 
un programa Ilamado programa principab 
que se compondr& casi exdusivamente, de 
instrucciones de Ilamadas a dichas subrutinas 
(GOSUB). No es la primera vez que aplica- 
mos este sistema, &verdad? 

Estructura del 
programa principal 

Comencemos con este programa principal 
que actuar6 como un director de orquesta. 
&Qua hace? 
Como siempre, pensemos un poquito. Con- 
feccionemos el proceso 16gico a seguir para 
luego plasmarlo graficamente en un organi- 
grama que nos ser6 de gran ayuda. 
Lo primero seria inicializar una serie de da- 
tos que maneiaremos mes tarde (ya veremos 
c6mo), y tambien el teclado. Mientras el or- 
denador est6 haciendo cualquier cosa, cuan- 
do pulsamos una tecla su caracter asociado 
queda guardado en un almacn -hasta un 
cierto limite. Si no queremos tener problemas, 

resultar6 conveniente vaciar, en cuanto el pro- 
grama comience a eiecutarse, dicha cles- 
pensm. 
A continuacian, tendran que aparecer en la 
pontalla unos r6tulos informativos que nos 
cuenten las teclas que necesitaremos pulsar pa- 
ra jugar. Pero aqui, ademas, hemos incluido 
la posibilidad de cambiarlas por otras que se 
adapten mas a nuestro modo de juego. No Io 
olvide. 
Si ya hemos seleccionado los mandos, 
adelante! Borramos todo Io que haya sobre 
a pantalla, dibujamos el terreno de juego y 
nos ponemos en movimienfo; bueno, se pon- 
dran en movimiento la bola y la paleta. 
Cuando se nos agoten las bolas -o termi- 
ne la partida- el Amstrad nos informara de 
esta situacian y nos preguntara si queremos 
continuar o no para obrar en consecuencia. 
Si nuestra respuesta es ,si, continuamos con 
la diversian yen caso contrario: iFin y se aca- 
bo! 
Estd suficientemente daro b qua queremos 
hacer. Pues, manos a la obra. El organigra- 
ma, o grfico que refleje este proceso 16gico, 
es el quenos muestra la figura I. En realidad 
es uno de los muchos que podemos hacer. Re- 
cuerde queen esto de la informatica la solu- 
ci6n a un problema nunca es Onica. 

FIG. h Orgonigramo del prograrna princpol. 

INICIAI. CION I 
7 
PESN ACION I 
7 
MOVIh ENIO J 

De ahi a codificar el programa principal 
hay que dar un pequefio paso. Es Io bueno que 
tienen estos matodos graficos. 



Observe que no est6 decidida la forma de 
realizar cada una de estas acciones. De mo- 
menta nos basta con saber que habr6 una ru- 
tina para realizar cada una de elias. Tenemos 
una visi6n general del problema. 
Y coma hemps dicho que es muy f6cil, una 
ojeada al Programa lie tendr6 que resultar 
familiar, o no? 

Programa uno 

Tiene dos cosas importantes: las distintas Ila- 
madas alas subrutinas (lineas 30 a 70) y el 
empleo de la funci6n INKEY en las lineas 120 
y 130. Analicemos esta 01tima. 
INKEY(60) nos devuelve un valor indicati- 
vo de si hems pulsado la tecla ¢S) o no (60 
es el n0mero asociado a la S>)). Este nOmero 
Io almacenamos en la variable ((valor))° A 
continuaci6n, en la linea 130, analizamos si 

la hemps presionado para comenzar de nue- 
vo la ejecuci6n del programa o, en caso con- 
trario, explorar si ha sido la N (que tiene 
asociado el nOmero 46) y el pragrama termi- 
n6. 
En caso de no set ninguna de las dos, vol- 
veriamos a realizar un nuevo chequeo del te- 
dado saltando otra vez a la linea 120. 
Recuerde que -1 es el valor que nos devuel- 
ve INKEY si no hemps colocado ninguno de 
nuestros (deditos sabre el teclado. Y eso 
es todo, s61o nos queda desarrollar cada una 
de las subrutinas. F6cil, verdad? 
Qu tendremos que inicializar? Ya hemps 
contado que es muy conveniente vaciar el al- 
mac6n donde se guardan las teclas pulsadas. 
Despus, parece 16gico dar un valor inicial a 
cada una de las coordenadas de la posici6n 
donde aparecer la bola cuando comience a 
ejecutarse el programa. Y podemos extender 
stos alas de la paleta, puntos y bolas inicia- 
Tambi6n determinaremos, de un modo alea- 
torio, el sentido de desplazamiento respecto 

a los ejes X e Y. Todo ella Io recogemos en la 
figura II. 

FIG, I1: Ruina de biciolz(i6n. 

coo i 

OEIEI 

Vea que aqui las cosas son ya mucho m6s 
concretas. Pasar a instrucciones Basic este or- 
ganigrama no debe presentar ya ningOn pro- 
blema. El Programa II es la muestra. 

Programa dos 

Hay una novedad en la linea 2030: CLEAR 
INPUT. Es la instrucci6n que empleamos pa- 
ra inicializar el teclado. 
CLEAR INPUT 
desecha todos los caracteres que hayamos te- 
cleado mientras el ordenador haya estado 
realizando alggn trabajo. 
Con esta arden conseguimos que el orde- 
nador comience a analizar s61o los caracte- 
res tecleados a partir de ella, enlendido. 

En las lineas 2080 y 2090 se puede obser- 
var c6mo se determinar6 el sentido de despla- 
zamiento de la bola de un modo aleatorio 
(funci6n RND). 
Ya tenemos el sistema, o los datos, iniciali- 
zados, asi que pasemos a la siguiente tarea 
que consistir6 en sacar en la pantalla informa- 
ci6n sabre las teclas que tendremos que pul- 
sar para conseguir el movimiento. 
Se trata simplemente de una rutina de pre- 
sentaci6n en la que s61o vamps a utilizar ins- 
trucciones LOCATE y PRINT. El Programa I11 
nos muestra una sencilla forma de hacerlo pe- 
ro no se deje influenciar par ella, es mucho me- 
jar que intente cambiarla y mejorarla experi- 
mentando nuevas t6cnicas. Es la mejor forma 
de aprender. 

Programa tres 

Ya hemps avanzado, no? Corresponde 
ahora contemplar la posibilidad de cambiar 
las teclas asignadas al movimiento. Es otra ru- 
tina muy simple, pero en ella tendremos que 
investigar tambi6n si hemps pulsado o no al- 
guna que otra tecla. Refresque su memaria. 
Habr6 que analizar si contestamos con una 
$) o con cualquier otra letra a la pregunta 
que nos aparecer en la pantalla. Cuando 
nuestra respuesla sea afirmativa, procedere- 
mos a cambiar la asignaci6n de las teclas. Si 
par el contrario es negativa, seguiremos con 
las teclas iniciales. 
Tambin es conveniente analizar que se ha 
tecleado uno de esos valores ((S>) o N)>) pa- 

REM PROGRAMA T T l 
RFM PRFSFNTA I ON 
FAR i=l Tfl 0 
I QATF 17,7 
PR I NT "MANS" 
I OCATF 5, 17 
PRIN"7: 
DFRFEHA" 
I PEtiTE 5 15 
NFXT 

ra evitar posibles errores, par juguetear con 
el teclado par ejemplo, que hagan que nues- 
tro programa no funcione tan correctamente 
coma es nuestro deseo. 
Qu6 opina del organigrama que hemps 
pensado y qu6 responde a la Figura Ill? Se ad- 
miten mejoras. 

MIC?OHOBBF AMSTRAD 13 



Le sugerimos, como siempre, que intente co- 
dificar por s[ mismo en instrucciones Basic es- 
te proceso 16gico. Ya tiene los suficientes da- 
tos para hacerlo correctamente. Nosotros le 
proponemos una soluci6n que no es la 0nica, 
FIG. II1: Oral co de Io to'too de combior los los del movimiento, 

J 

iAJE l 

,' ENIO I 

7 
NUV .ICLAS I 
0 , :.NIO J 
pero que seguramente le sacard de ese atas- 
co <<gordo en el que quiz6 se encuentra des- 
puEs de darle miles de vueltas a la cabeza sin 
encontrar una soluci6n v61ida. Se trata del Pro- 
grama IV. Lo analizamos? 

Programa cuatro 

Lo que a nosotros nos afecta m6s son las dis- 
tintas aplicaciones de la funci6n INKEYS que 
hay a Io largo de la rutina. Por ejemplo, el bu- 
cle WHILE... WEND II/neas ,tO,O a ,060) nos 
sirve para almacenar en <<op¢ion$) el ca- 
r6cter generado por INKEY$ mientras sea 
igual a la cadena vada. En el momento que 
sea diferente, al pulsar nosotros una tecla, el 
programa sale del bucle y sigue la ejecuci6n 
de la rutina. 
A continuaci6n se analiza el contenido de 
opci6nS para darle el tratamiento apropia- 
do. Observe que la linea 4080 nos manda de 
nuevo al lugar donde elegimos una opci6n, 
otra vez, si el carcter tecleado no es ningu- 
no de los v61idos (((S)) o ¢N), 
Emp[eamos nuevamente la funci6n INKEYS 
en los dos bucles WHILE... WEND de los li- 
neas4130 y a 4150 y 4210 a 4230. En esta 
ocasi6n el programa se detiene hasta que pul- 
semos una tecla y los caracteres generados por 
esta funci6n se almacenan respectivamente en 
las variables Cdzquierda$)) y <¢derecha$)) 
que m6s tarde servir6n para comprobar si la 
paleta se ha de mover o no. 
Imaginamos que no se le habr6 pasado por 
alto la linea 4180. En ella est la instrucci6n 

14 v'c,oor AM.TRAD 

CLEAR INPUT que nos borra todos los carac- 
teres tecleados que est6n todavia almacena- 
dos. Intente quitar esta linea de la rutina y ob- 
serve Io que ocurre. Es v61ido? 

4 '''¢'' RFM PRrIGRAMA 
4nln RF.M F.AMFqO DF MANDOS 
4,"2n L OCATF 4, 
l '' PR/NT"DIIIF.RPS OTRAS TF.CI AS PAI 
A MrIvF.R 9" 
44 WHILE optionS 
4,'5' npc nn$=INKF.Y$ 
4n7n IF npcnn$-"n" OR npr.nn$ "N" 
TIJRN 
4rln IF npc'nn$,'","" AND options 
S" THF.N cpr$on-"":fiDTO 4n4n 
4'9 r. I.OCATE 4,7 
4]Ar PRINT" 
41] n I OCATF 5,17 
417r, PEN 
44n  zqHi da$=INKY$ 
4] 5n WEND 
416n [OCATF 
417 PRINT 
418r  EAR INPUT 
4 I OATF 25,]2 
42 n PRINT"" 
422A derrha$ INKFY$ 
423n 
424n I OCATF 25,12 
425 P]NT dererha$:PFN 
42n FOR =1 TO In:NEXT i 
427n FTLtN 

Una vez hayamos cambiado (o no)las te- 
clas de movimiento, podemos comenzar a 
construir ya el juego propiamente dicho. Cons- 
truiremos el <(terreno) con el Programa V. 

Programa cinco 

Dibujamos los bordes a base de bucles que 
visualizan el CHRS(206) en Iineas horizonta- 
les y verticales, lineas 5030 a 5080. 
Despu6s colocamos y visualizamos la pale- 
tay la bola en sus posiciones iniciales -lineas 
5090 5120. La primera est6 formada por una 
cadena de 3 caracteres de c6digo 208, que 
nos devuelve Io funci6n STRINGS de la linea 
5120, la segunda es el catheter 202. 
Y, c6mo no, en el borde inferior aparece- 
r6n el n0mero de bolas que nos quedan y la 
puntuaci6n obtenida (5130 a 5160). Todo es- 
to ya Io conodamos. 

5 r'n RFM PROfiRAMA V 
5AI RF.M CLIADRAPO 
53r, FOR i-I TO 4 
5m4n PRINT 
5n5 NFXT 
5r'6 FOR i I TO 
5n7n PRINT 

5n?n iOCAT yhnla,yhola 
51 nn PRINT CHR$(2n2I 
511A I OATE paI,24 
512A PRINT 
51 I OCATF 4,25 
514n PRINT"PUNTOS:"}pnfn 
515n lOCATE 
51n PRINT"BOLAS:"hola 
517n RFTIJRN 

Siguiendo el organigrama del programa 
principal podemos vet que la pr6xima rutina 
a desarrollar es la del movimiento. 
El movimiento de la bola es semejante al que 
ya analizamos detenidamenle en un articulo 
publicado en el nOmero 43 de MICROHOBBY 
AMSTRAD. Le remitimos al Programa I de di- 
cho articulo en el caso que crea oporluno un 
pequefio refresco de memoria. IF no es asi, 
THEN podemos continuar. 
Tenemos que hacer un par de modificacio- 
nes a este programa. Por un lado ser6 nece- 
sario repetir el movimiento hasta que se nos 
hayan acabado las bolas (final de la partida). 
Pensemos en un bucle que se repita mientras 
una variable Ilamada bolas, por ejemplo, no 
sea cero. 
Adem6s habr6 que detector de alguna ma- 
hera si hemos pulsado o no alguna de las te- 
clas asignadas al movimiento y cuando haya 
sido asi, saltar a la rutina que se encargue de 
desplazar la paleta. 
Compruebe si el Programa VIse parece en 
algo a Io que usted habia pensado. 

Programa seis 

Conseguimos estar jugando mientras tenga- 
mos bolas mediante el bucle WHILE... WEND 
de las lineas 1020 y 1130. Esta girando mien- 
tras el ngmero de bolas que nos quedan -o 
el contenido de bolas- sea distinto de ce- 

ro. 

I n RFM PROGRAMA VT 
Inl RFM MOVIMIFNTO DF IA OIA 
12 n HHIL bla 
I [flCATF xhnla,ybnla 
In40 PRINT 
I5 FOR =n TO 5n:NFT 
I LOCATE hn]a,yhola 
I7A PRINT" " 
IARA xhnla hola+dep 
19n ybola=ybn|adpy 
Ilia tcla$ INKF.Y$ 
ll2 IF ecla$"" THN OSIID 

Con la linea 1110 almacenamos en 
(te¢lo$ el valor que nos da INKEYS. En el 
caso que hayamos pulsado una tecla, dicha 
funci6n nos devuelve al carcter asociado a 
la misma, asi que saltaremos a la rutina de la 
linea 1300 (la del movimiento de la paleta)ya 
que <(te¢lo$ contendr6 un valor distinto de 
la cadena vada. Cuando no sea asi, la rutina 
continuar6 ejecut6ndose. 
Observe tambi6n queen la 1100 hacemos 
una Ilamada a la subrutina de la 1200 para 
cambiar el sentido de desplazamiento si es ne- 
cesario. 
Y nada ms. No le habr6 parecido muy 
complicada la manera de hacer que la bola 
se mueva, verdad? 



En cuanto al cambio de trayectoria, Io te- 
nemos chupado,. El Programa I del n0mero 
43, coma le dijimos antes, le da la soluci6n am- 
pliamente comentada. Una sob salvedad: 
ahora tendremos adem6s que detectar si la 
bola chaco o no contra la paleta al Ilegar al 
borde inferior. 
Para ella en nuestro actual Programa VII in- 
cluimos una Ilamada a la rutina que se encar- 
gar6 de hacerlo. 

Programa siete 

Par Io dem6s todo es igual. Fijese en la li- 
nea 1250 y comprender6 Io que queremos de- 
cir: hay un salto de Ilamada a la rutina que 
analiza si hay o no rebate y que tendr6 su co- 
mienzo en la 1500. 

12n RFM PROGRAMA VII 
121 RFM CAMPIfl TRAYFETORIA 
1226 IF bnla I THFN xhnla 
12n IF hnla 4n THFN hnla 
12 n ]F ybnla-I THEN ybnla=2:dspy 
125n IF yhnla 24 THEN GOSI|P 15nn 
126n RETLIRN 

Para mover la paleta no habr encontrado 
ningOn problema. Pero par si un casual, revi- 
se el Programa VIII y seguro que concuerda 
con su idea primitiva. 

Programa ocho 

Y Ilega la hora de ver si samos capaces de 
devolver o no la bola. La condici6n ha inves- 
tigar ser6 que la coordenada (x -contenida 
en la variable xbola- coincida con la de al- 
guna de las partes de la paleta. 
Cuando se cumpla la igualdad, el progra- 
ma tomar6 un camina que Iogra que la bola 
rebate en el paleta y siga su trayectoria, que 
nuestra punluaci6n aumente y que continOe el 
juego. 
Sin embargo, si no es asi los acciones a rea- 
lizar sern muy distintas. Ahora perderemos 
una pelota, par tanto el, n0mero de bolas dis- 
minuirg en una, tendremos que visualizar es- 
ta situaci6n y devolver tanto la pelota coma 
la raqueta a su posici6n inicial para continuar 
jugando (siempre que esto sea posible). 

13n REM PROGRAMA VIII 
131n RFM MOVIMIFNTO PAL FTA 
l2n |flCATF xpal,24 
ln PRINT" 
13 IF tla$ i?qida$ THFN xpal 
=xpal-I 
I5 n IF t.ecla$=dPrecha$ THEN pal  
pal+l 
lb IF xpal I THEN xpal 2 
l2n IF xpal  THEN xpal 7 
13n lOCATE xpal? 
I90 PRINT STRIN$(HR$(2nRI) 
14rfl RFTURN 

Gr6ficamente este proceso quedaria retie- 
jado en el organigrama de la figura IV. 
FIG. IV: Orgonigrama rutina devolver bola. 
\, 
x7 
SICI0 
CP HICIAL 
0 I 0 ' I 
7 
CA , 8  I 
7 
Con un oco de pecienci imginmos que 
verd I correspondenci entre cd un de 
cis de este rdfico  Is instrucciones 
del Prorm 

Programa nueve 

El primero de los caminos que hemos comen- 
tado ser6 el comprendido entre los lineas 1530 
y 1S80. En esta gltima observar6 que existe 
un RETURN con el que volveremos a la ins- 
trucci6n siguiente al lugar desde donde hemos 
Ilamado a esta subrutina. 
El otro seria el que abarca los lineas 1590 
a 1680. Hay una ligera diferencia entre los 
dos, verdad? Analice ambos y saque sus con- 
clusiones. 

15 hEM PROfiRAMA IX 
151  REM DFVOIVFR ROIA 9 
157  IF xbnla-pl  OR xbolaZ=xpa 
1-1 THEN GOTO 
154n ybnla 
lSn despy 
156n lOCATE 11,25 
15 n PRINT ptnto 
15Rn RFTURN 
15q hn]a hnla-I 
lnn LOCATF A,25 
lal n PRINT bolas 
167n IOATF xpal,24: 
16 PRINT" 
Ib4n bnla=2n:ybnl=12 
16&n l flCATE xpa1,24 
167 PRINT STRING$(HR(? 
168n RFTIJPN 

Y hablando de caminos, el nuestro ha Ile- 
gado a su fin. Le deseamos que con sumo cui- 
dado teclee coda uno de estos programas y 
despu6s Io mezcle convenientemente (con 
MERGE, clara) para dar farina a uno solo que 
contenga todos los dem6s, cuidando el n0mero 
de linea. 

I00.000 PESETAS 
CON AflCROHOBB Y 

AMSTRAD 

SEMANAL 

Porque pretendemos que AMSTRAD 
SEMANAL sea tambi6n vuestra revista, 
hemos abierto una secci6n en la que se 
publicarn los mejores programas origi- 
nales recibidos en nuestra redacci6n. Vo- 
sotros seris los encargados de realizar 
estas p6ginas, en los que podris apor- 
tar ideas y programas interesantes pa- 
ro otros lectores. 
Las condiciones son sencillas: 
-- Los programas se enviar6n a AMS- 
TRAD SEMANAL en una cinta de casset- 
te, sin protecci6n en el software, de for- 
ma que sea posible obtener un listado de 
los mismos. 
-- Cada programa debe ir acompa- 
fiado de un texto explicativo en el cual 
se incluyan: 
-- Descripci6n general del programa. 
-- Tabla de subrutinas y variables uli- 
lizadas, explicando claramente la 
funci6n de cada una de elias. 
-- Instruccianes de manejo. 
- Todos estos datos deber6n ir escri- 
tos a m6quina o con letra clara para ma- 
yor comprensi6n del programa. 
-- No se admitir6n programas que 
contengan caracteres de control, debi- 
do a que no son correctamente interpre- 
tados par los impresoras. 
-- En una sola cinta puede introducir- 
se m6s de un programa. 
-- Una vez publicado, AMSTRAD SE- 
MANAL abonar6 al autor del programa 
de 15.000 a 100.000 pesetas, en con- 
cepto de derechos de autor. 
-- Los autores de los programas selec- 
cionados para su publicaci6n, reclbir6n 
una comunicaci6n escrita de ella en un 
plaza no superior a dos meses a partir 
de la fecha en que su programa Ilegue 
a nuestra redacci6n. 
-- AMSTRAD SEMANAL se reserva el 
derecho de publicaci6n o no del progra- 
FTIQ. 
-- Todos los progromas recibidos que- 
dar6n en poder de AMSTRAD SEMA- 
NAL. 
-- Los programas sospechosos de pla- 
gio ser6n eliminados inmediatamente. 

|ENVIANOS 
TU PROGRAMA! 
Adjuntando los siguientes datas: 
Nombre y apellidos,, 
direction y telfono. 
Indicando claramente en el sabre: 

AMSTRAD SE  ANAI 

a HOBBY PRESS, S. A. La Granja, 39 
Pol. Ind. Alcobendas (Madrid) 
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• AGNIFICADOR DE 
PANTALLAS 

En un nOmero anterior ofreciamos un reductor de 
pantallas; en esta ocasi6n os presentamos un 
magnificador que trabaja en cualquiera de los 
modos de pantalla que posee el Amstrad. 

magnificaci6n 
de pantallas puede ser una herra- 
mienta muy Otil para el tratamiento 
de grcficos, ya que permite obtener 
de una figura relativamente pequeo 
a, otra que es cuatro veces mayor, 
o bien, si 6sta se magnifica de nue- 
va, se obtendria una figura que 
rio 16 veces mayor que la primitiva, 
y asi sucesivamente si deseamos vol- 
ver a magnificar. 
De este modo, si en un programa 
realizado por nosotros, deseamos 
imprimir en pantalla una figura sufi- 
cientemente grande, podemos archi- 
var una figura de menor ramada y 
en el momento de imprimirla, pode- 
mos magnificarla en pantalla. 
Podemos preguntarnos qu6 venta- 
jas ofrece esta operaci6n. Pues bien, 
la ventaja fundamental es el ahorro 
de memoria. Si, por ejemplo, desea- 
mos imprimir un gr6fico que ocupe 
2.000 bytes en condiciones norma- 
les, utilizando el sistema que propo- 
nemos, se utilizan 0nicamente 500 
bytes. Asi pues el ahorro de memo- 
ria es de 1.500 bytes. 

Funcionamlento del 
magnificador 

Vamos aver a continuaci6n cu61 es 
el funcionamiento de esta rutina en 
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c6digo m6quina que provoca la 
magnificaci6n de pantallas. 
Lo primero que hacemos al entrar 
en el programa, es hacer una copia 
de la pantalla en un buffer situado 
en memoria; seguidamente, hace- 
mos una Ilamada a la rutina del firm- 
ware que nos darg el modo de pan- 
talla en el que nos encontramos, pa- 
ra adaptar las variables del progra- 
ma a dicho modo. 
Inmediatamente despu6s entramos 
en el bucle principal del programa, 
que es el encargado de la lectura de 
teclado, y de enviar el programa a 
los diferentes partes de que consta 
seg0n la tecla que se haya pulsado. 
En primer lugar chequea la pulsa- 
ci6n de los teclas de cursor, que se- 
r6n las que permitir6n mover el cua- 
drado por la pantalla, para poder 
decidir cucl es la zona de pantalla 
que se desea magnificar. 
Asi pues, si se pulsa la tecla de cur- 
sor arriba, se envfa el programa a 
la rutina que repone la posici6n ver- 
tical de pantalla, incrementando di- 
cha posici6n. Los restantes teclas de 
cursor act0an de la misma forma, in- 
crementando los coordenadas 
correspondientes. 
Seguidamente se produce la lectu- 
ra de la tecla COPIA, si 6sta no es- 
t6 pulsada, no produce ning0n efec- 
to, si dicha tecla se encuentra pulso- 
da, hacemos una Ilamada a la ruti- 
na encargada de producir la mag- 
nificaci6n de la pantalla propiamente 
dicha, y una vez hecha esta opera- 
ci6n se retorna al bucle principal del 
programa. 
Otra de las teclas que se che- 
quean, es la tecla P, si 6sta est6 
pulsada, el programa toma la pan- 
talla original del buffer de memoria 
y la coloca en la pantalla visible, per- 
diendo de este modo el contenido de 
la pantalla anterior. 

La imagen ampliada 
se puede salvar 

en cintaldisco 

Existe una tecla que nos permitir 
salvar en disco o cassette la panta- 
Ila actual, esta tecla es la <S. 
Por Oltimo tambi6n se chequea la 
pulsaci6n de la tecla ESC, para la 
posibilidad de retornar al Basic. 
Vamos a centrarnos ahora en la 
rutina que produce la magnificaci6n, 
intentaremos ver cu61 es el efecto que 
se produce. 



Dado que cada mado de pantalla 
debe tratarse de diferente forma, Io 
primero que hacemas es ver cu61 es 
el mada de pantalla en que se est6 
trabajando: para ella observamos 
cucl es el valor de la variable <mo- 
de>> y enviamos el control del progra- 
ma a la rutina especializada en di- 
cho modo. 

En detalle 

Para trabajar en modo 2, debe- 
mos observar cada uno de los bits 

que componen el byte, ya que todos 
ellos Ilevan informaci6n de pixels en- 
cendidos o apagados. 
Asi pues, observamos cada uno de 
los bits mencionados anteriormente; 
cuando uno est6 a 1 (encendido), en- 
viaremos el programa a una rutina 
especializada en agrandar horizon- 
talmente dicho bit, asi pues, obten- 
dremos un bit doble que el original 
(o sea se pondrn dos bits a 1). 
Si por el contrario dicho bit se end 
cuentra a 0 (apagado), el programa 
se enviar a una rutina especializa- 
da en hacer dobles dichos ceros, de 
este modo se pondr6n dos bits a ce- 
tO. 
Una vez agrandados horizontal- 

mente cada uno de los bits, se pro- 
ceder a efectuar el agrandamiento 
de forma vertical, para Io cual se 
efectuar una copia de la primera li- 
nea de pantalla en la segunda, con 
Io que se habr conseguido el efec- 
to de alargamiento. 
Si se est trabajando en modo |, 
se observargn tambi6n los ocho bits 
de que se compone cada byte, pero 

10 I'(BM PROGRAHA CARGADOR 
2'z FOR N 
0 R :SUMASUMA+A 
f' ! lJH/>B2159 THEN PRINT "ERRO 
0 DATA 200  50  I OR  I b I  62  O0  50 
9fl DATA 135 1613 16095,34 144 

I ! ¢ DATA 
 ?r. DATA 
I "0 DATA 
t ¢fl DATA 
J 0 DAT 
; 7¢ DATA 
700 OAT 
C40 
0 
?(,0 DAT 
1£1 DTA 
340 DTA 
"50 DATA 
360 DATA 
70 DATA 
7.O DATA 
400 DAT 
44o 
45£) DATA 
4(.0 I)AT 
470 DATA 
480 
490 DATA 
I 
500 ATA 
51C DATA 
520 
530 DATA 
540 DATA 
550 DATA 
560 DATA 
50 DATA 
80 DATA 
590 DATA 
600 DATA 
610 DATA 

62, 100,50 108, 161,b2 40 
5(I 135, 161 
144 1.62,205, 17, 18850, 122 
162,25. 1  40.8,254,2 
40, R, 2 12,24 6,62 
22 24,2,62,42 50 158 
I0, 335.5,34. 156. I0 
620205,3018740 
205159.160.62.220530 
187 40 3 205 173 160 62 
 ?05.30 187,40, 3,205 
204 16062.120530,187 
0.3205,188160b29 
205, 30 187, 40 3. 205,240 
'60,62.2720530187,40 
x205,12, 162,62,60205 
%0. i7. 0 3,205 146 162 
62 6 205 30, 187 192, 24 
78 201.00.4242 156 
160 45 125 16720034, 156 
160 205218, 16020142156 
160 44 125254 1520034 
56 160. 205. 218.160, 201, 42 
156 16036, 5, 158 160 188 
200 34156160,2D5218160 
201 42156 160,37124, 167 
200 74 
201 42 156, 160,205 i 17 !87 
205 129,187205,23116020 
1,4r)ES11 120177,32 
251  201  205, I E2 187.42 156 
t6C. 37.45. 205. 252 160,201 
205. 100. 161 2056 161,205 
50. ] 61 
0 16,58, 122 162254,2 
207 150 16i  254, i 202226 
 61   95 46. 162 O, O 203 
. qo 20, 207 201  203,215, 20 
227  20 i, 20.  2E I  203  239  20 
203. 247. 203. 255 201  3, 0 
19222[42 142 I26 200 
24.2 , $ 24 23D. 56, 25. 56 
406124.1988I0324 
8 17 80, O 124238, 56 
I03 25, 197 229 6, 80,221 
1260,119.221,35.35 
247,225, 193, lb, 218,201,205 
26,188,221,42144,162,6 
I002421, 124,230,56,254 
56 40, 6, 124, 198, 8, 103 
24,817,80,0,124,238 

670 DATA 56,103,25,197,229640 
630 DATA 126221I19,0221,3535 
40 DATA ib,247225193,1b,218x201 
650 DATA b, I00,197,237,8328,161 
660 DATA 6,4017520312619645 
670 DATA 161203,118196,40161,203 
680 DATA 110,196.351bi,203I02,196 
690 DATA 30161,1817519203,94 
700 DATA 196,45.161203.86,196,40 
710 DATA 1612037819&,35161,203 
720 DATA 70,19&,30.1611819,35 
730 DATA I&,207,229,4228161,1 
740 DATA 80,0,237,1762251916 
750 DATA 187237,83.281612016 
760 DATA i00197237,83,28,161,6 
770 DATA 40.175,203,126,19b45,161 
780 DATA 203118,19b.40161,203,94 
790 DATA 19&351&1203,Sb,196,30 
800 DATA 16118,175,19,203I10196 
810 DATA 4516103I0219640161 
82D DATA 203,78,196,35161.2D3.70 
830 DATA 19630161181935,16 
840 DATA 207,229.42,28.161.1,80 
850 DATA 0237,176225,19316187 
RO DATA 23783,28161201,6,100 
870 DATA 197.237,83.28,1bi640 
880 DATA 175203126,19645161,203 
890 DATA 110196.40161,203,94,196 
900 DATA 35161203.7819630.161 
910 DATA 18.17519,20311819b45 
92D DATA 161.203,102.196,40,161,203 
930 DATA 86.1963516120370,196 
940 DATA 30161.18.19,35,16.207 
950 DATA 229,42,28.161i,800 
960 DATA 237,176.225,193,1b,187,237 
970 DATA 83281612010205132 
980 DATA 187,33,160,95,34,142,162 

990 DATA 205,50, Ibi,33,160,3134 
1000 DATA 142,12,2010,0,0D 
1010 DATA 62I205I07188,6,8 
1020 DATA 33.180,16217,0169,205 
1030 DATA 140188330,192,170 
[040 DATA 64,100,62,2,205 
1050 DATA 152188,205,1431882018 
0 
1060 DATA 657884.4&,&5.8382 
1070 DATA 0 
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en este caso se tratar6n de diferente 
forma, ya que los bits que dan infor- 
maciSn de encendido o apagado, 
Onicamente son cuatro, ya que los 
otros cuatro se utilizan para colocar 
los diferentes colores que se utilizan 
en dicho modo. 
En modo O, 6nicamente Ilevan in- 
formaci6n de pantalla dos de los 
ocho bits que componen el byte, ya 
ue los otros seis Ilevan informaci6n 
el color. Asi pues, tambi6n se pro- 
ducir6n distinto tratamiento queen 
los anteriores modos. 
La opci6n de recuperar la panta- 
Ila inicial, 0nicamente consta de una 
rutina de impresi6n, a trav6s de la 
cual se procede a situar en la panta- 
Ila visual, la pantalla que se tenia al- 
macenada en memoria. 
La 01tima opci6n de que dispone- 
mos, es la que nos permite salvar la 
pantalla actual en disco o cinta, esta 
opci6n consta 0nicamente de varias 
Ilamadas al firmware, que provocan 
el efecto de SAVE>. 
Vamos aver a continuaci6n c6mo 
podemos utilizar el programa indi- 
cando cu61es son las teclas corres- 
pondientes a cada una de las opcio- 
nes. 

Controles de/magnificador 

Arriba Cursor arriba 
Abajo Cursor abaio 
Derecha Cursor derecha 
Izquierda Cursor izquierda 
Magnificar COPIA 
Pantalla original P 
Salvar pantalla S 
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Una vez que hayamos ejecutado 
el programa, para proceder a la 
magnificaci6n de un trozo de panta- 
Ila, deberemos colocar el cursor en 
la parte superior izquierda del blo- 
que de pantalla que se desea mag- 
nificar. 
Una vez decidida dicha posici6n, 
pulsaremos la tecla COPIA> para 
obtener el agrandamiento de dicho 
trozo de pantalla. 
Si una vez efectuada dicha opera- 
ci6n, no se obtiene el efecto desea- 
do, podremos volver a la pantalla 
original, con s61o pulsar la tecla 
En el caso de que la magnificaci6n 
se haya producido, si deseamos sal- 
var dicha pantalla en disco o casset- 
te bastar con pulsar la tecla <S. 

Usando im6genes grabadas 
desde Basic 

Para poder trabajar con una pan- 
talla que est6 almacenada en disco 
o cassette, podemos actuar del 
guiente modo: 
1. Cargaremos en memoria la ru- 
tina de magnificaci6n de pantalla. 
2. Escribiremos un programa Ba- 
sic como el que ofrecemos a conti- 
nuaci6n. 
10 MODE N 
20 LOAD"PANTALLA",&C000 
30 CALL &A000 
donde <N> ser6 el modo de pan- 
talla en el cual deseamos trabajar o 
en modo de pantalla en el cual est6 
salvada dicha pantalla en disco o cin- 
ta. 
Si en cualquier momento decidimos 
dejar de trabajar con la pantalla ac- 
tual y deseamos cargar otra, 0nica- 
mente deberemos pulsar la tecla 
((ESC y volver a ejecutar el anterior 
programa Basic, cambiando el hom- 
bre de la pantalla a cargar. 

Como hemos dicho anteriormente 
en cualquier momento estamos en 
condiciones de salvar la pantalla con 
la que se est6 trabajando. 
Para poder salvar dicha rutina en 
cinta o disco, Onicamente deberemos 
copiar el listado ensamblador que 
aparece al final del articulo. 
Para aquellos que no posean en- 
samblador, pueden copiar el listado 
del programa cargador y ejecutar- 
Io, una vez hecho esto si no nos ha 
dado ning0n error, podemos salvar 
el programa de la forma siguiente: 
SAVE"MAG N I", B, &A000, 700 
Para cargar dicha rutina en memo- 
ria en el momento en que deseemos 
trabajar, deberemos ejecutar el si- 
guiente programa Basic: 
10 MEMORY &FFF 
20 LOAD "MAGNI",&A000 
Una vez hecho esto, estaremos en 
condiciones de ejecutar el primero de 
los programas Basic que hemos pro- 
puesto. 
Si cualquiera de las pantallas que 
hemos almacenado de forma mag- 
nificada se desea retocar para lim- 
piarla de las brusquedades propias 
de la magnificaci6n, deberemos car- 
garla en el diseador de gr6ficos de 
que dispongamos para dejarla final- 
mente tal como se desee. 
Debemos decir tambi6n que utili- 
zando esta rutina de magnificaci6n, 
no podremos tener nada en memo- 
ria a partir de la direcci6n &FFF, ya 
que a partir de esa direcci6n es don- 
de se almacenan los buffers de la 
pantalla actual y de la pantalla ini- 
cial. 
Asi pues a partir de esa direcci6n 
y con una Iongitud de 16.384 bytes 
est6 almacenada la pantalla incial. 
Existe otro buffer que es donde se al- 
macena la pantalla magnificada. 
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RELOJ ANALOGACO 
Jos Espinosa Rodriguez 

E programa, bien re- 
suelto, nos ofrece la posibilidad de utilizar un 
Reloj funcional. Este cuenta con agujas para 
las horas, minutos y segundos. Funciona sin 
usar la sentencia Time. 

10-40 Presentaci6n. 
40-90 Deberemos introducir las horas, los 
minutos y los segundos para poder Iograr de- 
jar el reioj en la hora que deseemos. 
90-140 Dibuja exteriormente el retoj. 
140 Se realiza Io adaptaci6n de horas, mi- 
nutos y segundos a los 360 grados que tiene 
la circunferencia. 
150 Creamos una ventana. 
160-250 Realizamos los bucles necesarios 
para hacer funcionar el reloj. Le ponemos so- 
nido y dibujamos el Reloj Interior. 

d Horas. 
e Minutos. 
f Segundos. 
¢ Horas adaptadas a los 360 °. 
b Minutos adaptados a los 360 °. 
a Segundos adaptados a los 360 °. 

El manejo no implica ninguna dificultad. 
Cuando arrancamos el programa, se nos pi- 
de las horas y debemos dar un nOmero com- 
prendido entre el 0 y el 12. 
Cuando se nos pide los minutos, el ngmero 
que debemos dar estara c6mprendido entre 
el 0 y el 60. Igual para los segundos. 
Una vez que hallamos hecho esto nuestro 
reloj estar6 puesto en la hora apetecida. 

20 1 C,OHOr AMSTRAD 

tO MODE O:REM "agtjas" 
20 FILL 2:LOCATE 1,5:F'RINT " RELOJ 
FUNCIONAL,":F'RINT:PRINT" F'OR 30SE E 
SPINOSA 
0 PRINT:PRINT 
40 PRINT:PRINT 
50 PRINT:PRINT:PRINT:INPUT "hora: " 
d 
bO PRINT:PRINT:PRINT:INPUT "minuto: 
70 PRINT:PRINT:PRINT:INPUT "segundo 
80 MODE 1:FILL 
90 FOR y I TO 25 
100 LOCATE 3y:PRINT STRING$(4, IG4) 
110 LOCATE 35,y:F'RINT STRING$(4134 
):NEXT 
20 TAG:MOVE 30b,385:PRINT "12";:M0 
VE 415385:PRINT CNR$(138):MOVE 49 
8,294:PRINT CHR$(140);:MOVE 498207 
:PRINT "" 
130 MOVE 498,112:PRINT CHR$(140);:M 
OVE 41529:PRINT CHR$(13S):MOVE 
2,29:PRINT "&":HOVE 220,29:PRINT C 
HR$(138)::MOVE 127,112:PRINT CHR$(I 

40)::MOV 127,207:PRINT "9";:MOVE 
27294:F'RINT CHR$<I40):MOVE 
5:PRINT CHR$(IGG):TAGOFF 
140 c (d30)+(e/2):b=eb:a 
150 WINDOW IO30.52,9,22.5:PAF'ER 
I:CLS 
160 WHILE b<359 
170 WHILE a<359 
180 SOUND 
RIGIN 320200:DEG:DRAW ibOSIN(b)1 
bOCOS(b) 
190 ORIGIN 20200:DEGDRAW 120SIN 
(c),120COS(c):ORIGIN 320200:DEG:P 
LOT IbOSIN(a)IbOCOS(a) 
200 WEND 
210 b-b÷6:c c÷O.=IF a=3&O THEN CLS 
220 a=O:ORIGIN 320,200:DEG:DRAW I0 
SIN(b),i60COS(b):ORIGIN 320,20D:D 
EG:DRAW 120SIN(c),I20COS(c):PLOT 
160SIN(a)160COS(a):IF b G60 THEN 
240 
230 GOTO 170 
240 a O:WEND 
250 GOTO 170 
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Ji programa tiene 
todas las opciones de una base de 
datos <<profesionah> aunque es total- 
mente comprensible para cualquie- 
ra que quiera dedicar un poco de 
tiempo en teclear el listado, con Io 
cual comprenderc la estructura del 
mismo y podr6 modificarlo y amol- 
darlo a sus necesidades. 
En efecto, una de las principales 
caracteristicas del programa es que, 
si bien ocupa una gran parte de me- 
moria al residir totalmente en 6sta, 
es adaptable a distinto tipo de usos; 
basta cambiar las dimensiones de las 
tres matrices que se utilizan. 
Por ejemplo, si el mcximo n0mero 
de campos que ten6is pensado utili- 
zar en cualquier fichero es menor 
que 6, pod6is disminuir la matriz de 
los campos y aumentar la de las fi- 
chas con Io cual aumentar6 el n0me- 
ro m6ximo de fichas a introducir. 

Descripci6n 
del progranTa 

El menO nos muestra las 8 opcio- 
nes principales de que disponemos, 
algunas de las cuales tienen a su vez 
submen0s. El programa nos informa 
en todo momento de Io que podemos 
hacer y dispone de una ventana in- 
ferior en la cual explica el modo de 
introducir la opci6n elegida. 

Opci6n crear fichero. Nos pide el n0- 
mero de campos y sus hombres. A 
continuaci6n nos informa del n0me- 
ro m6ximo de fichas que podemos in- 
troducir y nos pide confirmaci6n. Si 
no estamos de acuerdo regresa cl 
men0, de Io contrario comienza el 
proceso de introducir fichas del cual 
podemos salir en cualquier momen- 
to ya que cada vez que introducimos 
una se nos muestra la memoria que 
nos queda y la posibilidad de volver 
al men0. Siya hay un fichero en me- 
moria nos avisa de ello pues ser6 
destruido si creamos otro por Io que 
es aconsejable elegir la opci6n SAL- 
VAR FICHERO una vez Io hayamos 
creado. 
Salvar fichero. Salva el fichero que 
est6 en memoria. 
Cargar fichero. Carga en memoria el 
fichero que le digamos. Si hay ya un 
fichero en memoria (bien porque Io 
hemos cargado previamente o bien 
porque Io hemos creado) nos avisa 
de ello ya que se destruir6. Si el fi- 
chero a cargar no estc en el disco 
tambi6n nos informa. 
Buscar dato. Nos pide el dato bus- 
cado y el campo a buscar. Lista too 
das las fichas que contengan ese da- 
to. 
Clasificaci6n alfab6tica. Nos pide el 
campo pot el que queremos clasifi- 
car y clasifica. Para ver las fichas cla- 
sificadas hay que elegir la opci6n 
apropiada en el submen0 de LISTA- 
DO DE FICHAS. 
Listado de fichas. Tiene a su vez un 
submen0, ya que se pueden listar las 
fichas desde la primera, desde el 
mero que queramos u ordenadas (si 
previamente se ha hecho la ordena- 
ci6n). 
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Modificaci6n. Nos visualiza las fichas 
una pot una y nos pregunta si que- 
remos modificar alg0n campo, o su- 
primir o aadir alguna ficha. 
Salida de basic. Nos avisa si hay al- 
gOn fichero en memoria. 

VARIABLES 1 

REGIS 
INDICE 
CAMPO 
OPC 
SUPER 
FIC 
AVOM 
NAMES 
ENCTR 
ACMES 
CONTAUX 
FIZ 
X 
B 
CLAS 
NUMERO 

Fichas 
Clasificaci6n 
Nombre de los 
campos 
Entrada de men0s 
N0mero m6ximo de 
fichas 
N0mero de fichas 
Aviso de fichero de 
memoria 
Nombre de fichero 
a salvar o cargar 
Contador de datos 
encontrados 
Dato a buscar 
Indicador de rutina 
de modificaci6n 
Contador de fichas 
visualizadas o a 
visualizar 
N0mero de ficha a 
listar 
N0mero de campo 
a clasificar 
Indicador de 
clasificaci6n 
N0mero de campos 
del fichero 
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NOTA: Los usuarios de/CPC 464 deben sus- 
filuir /a arden CLEAR INPUT de /as /fneas 280, 
2580, 2590 y 1560 par: WHILE INKEI$ 
< > .... : WEND 

UBRUTINA$ 

100-340 MenO principal 
330-570 Crear ficheros 
580-740 Rellena fichas 
750-720 Rutina de salvar 
fichero 
730-1130 Carga fichero 
1140-1340 Rutina de bOsqueda 
1350-1450 Rutina de listado de 
ficha encontrada 
1460-1620 Imprime menO de lis- 
tado y entrada de 
opciones 
1630-1790 Lista fichas desde la 
primera 
1800-1860 Salta fichas 
1870-2060 Rutina de 
clasificaci6n 
2070-2270 Lista fichas 
clasificadas 
2280-2410 Imprime menO de 
actualizaci6n y en- 
trada de opciones 
2420-2530 Imprime y da entra- 
da a rutina de modi- 
ficaci6n individual. 
2540-2650 Modifica la ficha 
2660-2730 Rutina de borrado 
de fichas 
2740-2790 Subrutina de espera 
2800-2890 Tratamiento de 
errores 
2900 Salida o basic 

10 RCM 
20 ' PRflGRAMA CREADO POR 
40 ' LUIS JAVIER SOMEZ SONZALEZ 
50 " 
60 ON BREAK CONT 
70 ON ERROR SOTS 2800 
SO DIM REGIS(500,6) :DIM INDICE(500 
):DIM CAMPO$(&) 
90 BORDER 13 
100 
110 ' MENU PRINCIPAL 
120 " 
I0 MODE 2:CLS 
140 INK O26:PAPER 2:WINDOW 2?,55,5 
,22 
150 PRINT" MENU" 
160 PRINT:PRINT "I CREAR FICHERO" 
170 PRINT:PRINT "2 SALVAR FISHERS 
180 PRINT:PRINT "3 LISTAR FIHAS " 
190 PRINT:PRINT "4 ORDENAION ALFA 
BETICA" 
200 PRINT:PRINT "5 BUSQUEDA DE UN 
OATS" 
210 PRINT:PRINT "b ARSAR FICHERO" 
220 PRINT:PRINT"7 ACTUALIZAR" 
230 PRINT:PRINT"8 SALIDA A BASI" 
240 WINDOW #2,1SO24,25:PAPER #2 
13:INK 1,0:PEN #2,0 
250 PRINT #2," SELECCIONE 0 
PCION CON LAS TECLAS DEL CURSOR Y P 
ULSE [RETURN] " 
260 N=2 
270 CURSOR I:LDATE 
280 IF INKEY(O)<>-I AND N>2 THEN N 
N-2:FOR B I TO 200:NEXT B 
290 IF INKEY(2)<-I AND N<I& THEN N 
N+2:FOR B I TO 200:NEXT B 
300 IF INKEY(18)<>-I THEN OPC-(VPOS 
(#O)-I)/2:CLEAR INPUT:SOTS 320 
310 GOTO 270 
320 CURSOR O:CLS:WINDOW 1,80I,23:C 
LS #2 
330 ON OPC GOSUB 380,780,1460,1870 
1140,96022802930 
340 GOTO 130 
350 " 
360 ' CREA FICHERO 
70 
SO IF AVOM>-I THEN LOATE 1,12:INP 
UT"HAY UN FISHERS EN MEMORIA. EONTIN 
UO?(INTRODUZCA OPCION} IN] NO,OTRA 
TECLA SI";OPC$ 
390 IF AVOM> I AND OPC$ "N" OR OPC$ 
"n" THEN RETURN 
400 ERASE AMPO$,INDIEE,RESI$:DIM 
AMPO$(6):DIM REGI$(OO,b):DIM INDIC 
E(600) 
410 LOCATE #2,22,1: PRINT #2,"EL NU 
MERO MAXIMS DE CAMPOS ES 6" 
420 CLS:LOCATE 15,:INPUT .... POR FA 
VOR INTRODUZCA NUMERO DE CAMPOS";J 
MFRO 
43r IF NUMERO'6 THEH CLS:CLS #2:GOT 
 47 
44 r) CLS #:UPER INT(13000/(17NUME 
RO)) 
450 PRINT #2,"EL NUMERO MAXIMS DE F 
ICHAS SUPONIENDO MEDIA DE 15 CARACT 
.POR CAMPS ES "SUPER 
460 FOR N=I TO NUMERO 
470 PRINT:PRINT TAB(19)" NOMBRE DE 
I. CAMPS NUMERO';N| 
480 INPUT COMPO$<N):CAMPO$(N)-UPPER 
$(EoMPO$(N)) 
490 NEXT N 
500 CLS 
510 PRINT" VA A CONFECCIONAR 
USTED UN FICHERO CON"$NUMERO;"CA 
OS QUE SE LLAMARAN :" 
520 FOR N I TO NUMERO 
50 LOATE 30I+<N$2):PRINT N;".... 
.."CAMPO$(N) 
54O NEXT N 
550 CLS #2:PRINT #2," SI NO ESTA D 
E ACUERDO PULSE /N/ ...... CUALQUIE 
R OTRA TELA PARA CONTINUAR 
560 IF INKEY$ ..... THEN 560 

570 IF INKEY(46)<>-1 THEN AVOM-AVO 
M-I:RETURN 
580 
590 ' RELLENA FIHA 
600 
610 FIC-1 
620 CLS #2:CLS:LOCATE 25,1:PRINT "R 
ELLENANDO FIEHA NUMERO ";FI 
630 FOR N-I TO NUMERO 
640 PRINT 
650 PRINT " ";CAMPO$(N);" :"; 
660 HOR PSS(#O):VER VPOS(#O):INPUT 
ROSI$(FIC,N):REGI$(FICoN)=UPPER$(RO 
670 IF RESI$(FI,N) .... THEN CAMBIO$ 
RESI$(FIC-J,N):REGI$(FIC,N)=CAMBIO 
$:LOCATE HOR,VER:PRINT REGIS(FIE, N) 
680 CLS #2:PRINT #2,"MEMORIA LIBRE 
EN BYTES ";FRE("")-4000;" CRETURN] 
IMPRIME EL OATS DE LA FICHA ANTERO 
690 NEXT N 
700 CLS #2:PRINT #2," PULSE /N/ P 
ARA MENU Y CUALQUIER OTRA TECLA P 
A RELLENAR UNA NUEVA FICHA " 

710 IF INKEY$ .... THEN 710 
720 IF INKEY(46)<>-I THEN AVOM AVOM 
+I:RETURN 
730 FIC-FIC+I 
740 GOTO 20 
750 
760 ' SALVA FI6HERO 
770 
7£0 CLS #2:CLS:LOCATE 22,11:INPUT" 
NOMBRE DEL FICHERO A SALVAR";NAME$ 
790 IF LEN(NAME$)>8 THEN CLS:LOCATE 
29,11:PRINT"NOMBRE DEMASIADO LARGO 
":GOSUB 2770:RETURN 
800 OPENOUT NAMES 
BIO PRINT #9,FIE 
820 PRINT #9,NUMERO 
0 FOR N I TO NUMERO 
840 PRINT #9, CAMPO$(N) 
BSn NEXT N 
8&O FOR N-I TO FI 
BTO FOR Z I TO NUMERO 
SSO PRINT 
O NEXT 2 
90O NEXT N 
910 CLOSEOUT 
920 RETURN 
930 ' 
94(' " CARGA FISHERS 
950 
960 IF AVOM>-I THEN LOCATE 1,12:INP 
UT "HAY UN FISHERS EN MEMORIA.CONTI 
NUOD[N] NO[OTRA TECLA] SI ,INTRODU 
ZCA OF'CION";OPC$:IF OPC$ "N" DR OPC 
$ "n" THEN RETURN 
970 CLS:CAT 
980 LOATE 22,22:INPUT"NOMBRE DEi. F 
ICHERO A CARGAR ";W$ 
990 ERASE INDICEREGI$,CAMPO$:DIM 
NDICE(&OO):DIM REGI$(6OO6):DIM CAM 
P05(6) 
1000 OPENIN W$ 
1010 INPUT #9,FICNUMERO 
I20 FOR N I TO NUMERO 
I030 INPUT #9,AMPO$(N) 
1040 NEXT N 
1050 FOR R I TO 
1060 FOR C-I TO NUMERO 
1070 INPUT #9REGI$(RC) 
1080 NEXT C:NEXT R 
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1090 CLOSEIN 
1100 CLS:LOATE 30,12:PRINT"$ CARG 
A TERMINADA $" 
1110 GOSUB 2770 
1120 AVOM=AVOM+I 
110 RETURN 
1140 ' 
1150 ' BUSA DATOS 
1160 
1170 CLS 
1180 LOCATE 11,2:PRINT"POR FAVOR EN 
TRE EL NUMERO DE CAMPO A BUSCAR :" 
1190 PRINT 
1200 FOR C-I TO NUMERO 
1210 PRINT TAB(O) ;". ..... ";CAMPO 
1220 PRINT 
1230 NFXT C 
1240 INPUT #2,"CAMPO'B:LS #2:PRIN 
T #2,CAMPO$(B); 
1250 CLS 
1260 LOCATE 30,12:PRINT"INTRODUZCA 
DATO A BUSCAR" 
1270 INPUT #2, OCME$:ACME$-UPPER$(OC 
ME$) 
1280 ENCTR 0 
1290 FOR N=I TO FIE 
I00 IF REGI$(N,B)-AEME$ THEN ENCTR 
ENCTR+I:GOSUB 1350 
1310 NEXT N 
I20 IF ENCTR>O THEN CLS:LOCATE 22, 
12:PRINT ACMES;" NO FIGURA MAS VECE 
S":GOSUB 2770 
1330 IF ENCTR-O THEN CLS:LOCATE 22, 
12:PRINT ACMES;" NO FIGURA EN EL AiR 
HIVO":OOSUB 2770 
I40 RFTURN 
I50 
130 ' LISTA FICHA BUSADA 
1370 
1380 CLS 
1390 LOCATE I,O:PRINT "FICHA NUMER 
1400 FOR Z I TO NUMERO 
1410 PRINT:PRINT " ";CAMPO$(Z);" 
1420 PRINT REGI$(N,Z) 
1430 NEXT Z 
1440 GOSUB 2770 
1450 RETURN 
1460 " 
1470 " IMPRIME MENU DE LISTADO 
1480 " 
1490 CLS:LOCATE 24,2:PRINT"RUTINA D 
E LISTADO DE FICHAS" 
1500 CLS #2:LOCATE #2,11,24:PRINT # 
2,"COLOQUE EL CURSOR SOBRE LA OPCIO 
N ELEGIDA Y PULSE IRETURN]" 
1510 LOCATE 27IO:PRINT"I. LISTA TO 
DAS LAS FIHAS" 
1520 LOCATE 27,12:PRINT"2. LISTA SO 
LO FICHA PEDIDA" 
1530 LOCATE 2714:PRINT"3. LISTA F# 
CHAS CLASIFICADAS" 
1540 LOCATE 2716:PRINT"4. MENU 
NCIPAL" 
1550 CURSOR I:N I0 
15&O LOCATE 27,N 
1570 IF INKEY(O)<>-I AND N>IO THEN 
N=N-2:FOR B I TO 150:NEXT 
1580 IF INKEY(2)<>-I AND N<16 THEN 
N=N+2:FOR B-I TO 150:NEXT 
1590 IF INKEY(18)<>-I THEN OP=(VPO 
S(#O)-8)/2:CLEAR INPUT:GOTO 1610 
1600 GOTO 1560 
1610 IF OPC-4 THEN RETURN ELSE ON 
PC 80TO 
I20 OOTO 1490 
I&30 ' 
1640 ' LISTA FICHAS DESDE EL PRINCI 
PIO 
1650 ' 
1660 CURSOR O:FIZ I:ONTAUX=O 
1670 IF FIZ>FIC THEN CLS:LOCATE 15 
12:PRINT " FINAL DE FICHERO. NO 

AY MAS REGISTROS II":GOSUB 2770:RET 
URN 
1680 CLS #2:CLS:LOCATE 35, i:PRINT"F 
IEHA 
I690 FOR N I TO NUMERO 
1700 PRINT:PRINT CAMPO$(N);" : "; 
1710 PRINT REGI$(FIZ,N) 
1720 NEXT N 
170 FIZ FIZ+i 
1740 IF CONTAUX>O THEN GOTO 2480 
1750 PRINT #2" /S/ LISTA FICHA SI 
GUIENTE /A/ LISTA FICHA ANTERIOR, 
/M/ MENU" 
1760 IF INKEY(bg)<>-I THEN FIZ-FIZ- 
2:GOTO 1670 
1770 IF INKEY(3S)K>-i THEN 1460 
1780 IF INKEY(60)<>-I THEN 1670 
1790 GOTO 1760 
IBO0 " 
1810 " SALTA FIEHAS 
1820 ' 
180 ELK #2:CLS:LOCATE 2312:INPUT" 
INTRODUZCA EL NUMERO DE LA FICHA 
X 
1840 FIZ X 
1850 IF FIZ>-FIC THEN CLS:LOCATE 20 
12:PRINT"NUMERO EQUIVOCADO. NO HAY 
TANTAS FICHAS":FIZ I:GOSUB 2770:RE 
TURN 
1860 GOTO 1670 
1870 ' 
1880 ' RUTINA DE CLASIFIACION 
1800 
1900 CLAS I:CLS 
1910 LOCATE IOI:PRINT "CADA REGIST 
RO DE SU FICHERO CONTIENE";NUMERO;" 
EAMPOS" 
1920 FOR N-I TO NUMERO 
1930 PRINT:PRINT TAB(22);N". ...... 
..... ";CAMPO$(N) 
1940 NEXT N 
1950 INPUT #2," 
NUMERO DE AMPO A CLASIFICAR";B 
1960 CLS:LOCATE 12,12:PRINT"ESPERE 
UN INSTANTE POR FAVOR,ESTOY CLASIFI 
CANDO" 
1970 FOR I-I TO 
1980 INDICE(1)-I 
1990 NEXT I 

2000 FOR I I TO FIC-I 
2010 FOR a-I+1 TO FIE 
2020 IF REGI$(INDICE(1),B)>REGI$(IN 
DICE(3),B) THEN P INDICE(1):INDICE( 
I) INDICE(J):INDICE(a) P 
2030 NEXT a 
2040 NEXT 
2050 CLS:LOCATE 25,12:PRINT "CLASIF 
ICACION TERMINADA":GOSUB 2770 
2060 RETURN 
2070 ' 
2080 ' LISTA FIHAS CLASIFIADAS 
2090 ' 
2100 CLS 
2110 IF CLAS-O THEN LOCATE $,12:PRI 
NT"PRIMERO TIENE QUE CLASIFICAR EL 
FICHERO CON LA OPCION 'CLASIFICACIO 
N ALFABETICA":CURSOR O:GOSUB 2770:R 
ETURN 
2120 FOR I-I TO 
2130 K INOICE(1) 
2140 PRINT TAB(30)"FIHA NUMERO";I 
2150 FOR B I TO NUMERO 
21&0 PRINT:PRINT CAMPO$(B);" :"; 
2170 PRINT REGI$(K,B) 
2180 NEXT B 
2190 PRINT #2 ,"SI NO DESEA VER MAS 
FICHAS PULSE /N/ DE LO CONTRARIO P 
ULSE CUALQUIER OTRA TECLA" 
2200 A$-INKEY$ 
2210 IF AS "" THEN 2200 
2220 IF A$="N" OR AS "n" THEN RETUR 
N 
2230 CLS 
2240 CLS #2 
2250 NEXT 
2260 LOCATE 2212:PRINT"FINAL DE F# 
CHERO.NO HAY MAS REGISTROS":GOSUB 2 
770 
2270 RETURN 
2280 ' 
2290 ' IMPRIME MENU DE ACTUAL IZACIO 
N 
?. • 
2I0 LOCATE 34,5:PRINT"SUBMENU" 
2320 LOCATE 28,10:PRINT"I AIADIR MA 
S FICHAS" 
2330 L0CATE 28,12:PRINT"2 MODIFICAR 
2340 LOCATE 2814:PRINT"3 MENU PRIN 
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2680 ' 
2690 FOR K FIZ TO FIg:FOR N=I TO NU 
MERO 
2700 REGI$(K-IN)=REGI$(KN) 
2710 NEXT N:NEXT K 
2720 FIZ FIZ-I:FIC FIC-I 
2730 GOTO I&70 
2740 ' 
2750 " SUBRUTINA DE ESPERA 
2760 ' 
2770 LS #2:LOCATE #22325:PRINT # 
2"PULSE EUALQUIER TEELA PARA 8NTI 
NUAR" 
2780 IF INKEY$ "" THEN 2780 
2790 RETURN 
2800 " 
2810 " TRATAMIENTO DE ERRORES 
2820 • 
2830 CLS 
2840 IF DERR 146 THEN LOEATE 25,12: 
PRINT" FIEHER8 NO EXISTENTE" 
2850 IF DERR 148 THEN LOEAE 30,12: 
PRINT"EL DISCO ESTA LLENO" 
2860 RESUME 2870 
2870 CLS #2:LOCATE #2,19,25:PRINT # 
2,"PU|SF CUALQUIER TECLA PARA VALVE 
R AL MENU" 
2880 IF INKEY$ "" THEN 2880 
2890 GOTO 130 
2900 
2910 ' SALIDA A BASI 
2920 " 

2950 MODE 2:IF AVQM>=I THEN LOCATE 
512:INPUT "EXISTE UN FICHER8 EN ME 
MORIA. ESTA SEGURO DE QUERER SALIR? 
(S/N) ";OPC$:QPC$ UPPER$(QPC$} 
2940 IF OPtS "S" OR OPC$="SI" THEN 
ELS:NEW 
2950 IF AVOM-O TEN LS:NEW 
2960 RETURN 

CIPAL" 
2350 PRINT #2,"INTRODUZEA OPCION";: 
INPUT #2,0PC 
23&0 CLS 
2370 IF OPP-3 THEN RETURN ELSE ON 0 
PC GOTO 2380,2420 
280 " 
2390 " SUMA I AL CSNTADOR DE FIEHAS 
Y MANDA A RUTINA DE RELLENO 
2400 ' 
2410 FIC FIC+I:GOTO 620 
2420 ' 
2430 ' SUBRUTINA DE MODIFIACION 
2440 ' 
2450 CONTAUX-1 
2460 FIZ=I 
2470 GQTQ 1670 
2480 CLS #2:PRINT #2"Q MODIFICAR// 
W SUPRIMIR//ENTER NO ALTERAR//M ME 
NU// [INTRODUZCA OPCION]";:INPUT #2 
 OPC$:pE$-UPPER$(p=$) 
2490 IF OPC$-"Q" THEN 2540 
2500 IF aPES="#" THEN 2660 
2510 IF QPC$-"M" THEN RETURN 
2520 IF aPES="" THEN 1670:REM VA A 
LA RUTINA DE LISTAR FIEHAS 
2530 GOTO 2480 
2540 ' 
2550 ' MODIFICANDO FICHA 
2560 " 
2570 CLS #2:LS 
2580 FOR N I TO NUMFRO 
2590 PRINT CAMPO$(N};": ";REGI$(FIZ 
-IN) 
2600 LS #2:PRINT #2,"FICHA/";FIZ-I 
;"/M/MODIFICA CAMPO .... [RETURN] 
3A EL CAMPO EOMO ESTA" 
2&lO IF INKEY(18)<>-I THEN CLEAR IN 
PUT:GOTO 2640 
2620 IF INKEY(8}<>-I THEN CLEAR IN 
PUT:CLS #2:LOEATE #224,26:PRINT 
"ENTRE NUEVOS DATOS":PRINT EAMPO$( 
N);:INPUT CAMIO$:cambio$-UPPER$(ca 
mbio$):REGI$(FIZ-IN)=CAMBIO$:GOIO 
240 
230 GOTO 2610 
?&40 NEXT N 
250 GOTO 1670 
2670 ' BORRA FICHA IGUALANDOLA A LA 
$1GUIENTE 

" ANA 100.000 PESETAS 
CON MICROHOBBY 

• STRAD$£MANAL 

Porque pretendemos qua AMSTRAD SEMANAL 
sea tambi6n vuestro revisto, hemos obierto uno secci6n 
en la que se publicaran los mejores programas origina- 
les recibidos en nuestro redacci6n. Vosotros ser6s los en- 
cargados de reolizar estas p6ginas, en las qua podr6s 
aportor ideas y programas interesones pora arras 
ores. 
Los condiciones son sencillos: 
- Los programas se enviar6n o AMSTRAD SEMA- 
NAL enuna cinta de cassette, sin protecci6n en el sof- 
ware, de forma qua sea posible obtener un llstado de 
los mismos. 
- Cada programa clebe ir acompaAado de un texto 
explkativo en el cual se incluyan: 

- Descripci6n general del programa. 
Toblo de subrunas y variables utilizadas, explicon. 

do daramente la funci6n de cada una de elias. 
- Instrucdones de manejo. 
- Todos estos dotos deber6n ir escritos a m6quina 

o {:on lotto clara pora mayor comprensi6n del progromo. 
- No se admitir6n programas qua contengan carac- 
teres de control, debido a que no son corredamente in- 
terpretados par los impresoros. 
- En una sola cinto puede introducirse m6s de un pro- 
grama. 
- Una vez publicado, A$TRAD SEMANAL abo- 
nar al autor del programo de 1 .000 o 100.000 
pesetas, en concepto de derechos de aurar. 
- Los autores de los programas seleccionados paro 
su publicoci6n, reabirdn una comunicacibn escrita de ella 
en un plaza no superior a dos moses a partir de la fecho 
en que su programa Ilegue a nuestra redacci6n. 
- AMSTRAD SEMANAL se reserva el derecho de 
publicaci6n o no del programo. 
- l"odos los programas recibidos quedar6n en poder 
de A$TRAD SEMANAL. 
- Los program,s sospechosos de plagio ser6n elimi- 
nados inmeciiatamente. 

iENVIANOS TU PROGRAMA! 
Ad/untando los siguientes datos: 
Nombre y apellidos, direcci6n y telfono. 
Indicando claramente en el sabre: 

AMSTRAD SEMANAL 

a HOBBY PRESS, S. A. La Grania, 39. Pol. Ind. Alcobendas (Madrid) 
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Iil,fPRE$1ONA CON TU PANTALLA 

Continuando con la serie que iniciamos la semana pasada, 
intentaremos pasar otro programa que hemos preparado en 
Basic, a c6digo maquina 

" I programa de 
hoy trata tambi6n de la impresi6n de 
caracteres en pantalla, pero esta vez 
Io enfocaremos desde una perspec- 
tiva distinta. 
Trataremos de estudiar la forma en 
que se pueden realizar distintos mar- 
cos o presentaciones de pantallas. 
Para ello hemos confeccionado un 
prograrna en Basic que prepara una 
pantalla de presentaci6n, en el cual 
vamos a colocar un marco que la ro- 
dee. 
Siempre que se desee preparar 
una pantalla para un programa, ya 
sea de juegos o utilidades, en Io pri- 
mero que debemos pensar, es qu6 
colores ser6n los m6s adecuados pa- 
ra dicho prop6sito. Asi pues, debe- 
mos decidir cu61es sern dichos co- 
lores. 
Debemos tener presente tambi6n, 
el modo de pantalla en el cual desea- 
mos trabajar, ya que para cada too- 
do distinto deberemos elegir un n0- 
mero distinto de tintas. Asi pues, si 
trabajamos en modo 2 0nicarnente 
deberemos elegir dos de dichas tin- 
tas, si Io hacemos en modo 1 se de- 
ber6n elegir 4 y si estamos en modo 
0 deberemos elegir 16. 
Dado que en nuestro caso traba- 
jaremos en modo 1, 0nicamente de- 
beremos elegir 3 colores, y dado que 
0nicamente imprimiremos en panta- 
Ila con las plumas 0, 1 y 3, podemos 
dejar de definir la pluma nOmero 2, 
ya queen este caso no nos interesa. 
Lo primero que debemos definir en 
nuestro programa en c6digo mqui- 
na es definir una tinta para cada una 
de las plumas que vayamos a utilizar. 
Para ello utilizamos una rutina que 
el firmware nos proporciona, se tra- 
ta de la siguiente. 
SELECIONA TINTA. #BC32 

Selecciona los dos colores que van 
a ser utilizados en dicha pluma. Si los 
dos colores son iguales, la tinta per- 
manece inalterable. Si son distintos, 
dicha tinta aparece parpadeante en 
esos dos colores. 
Condiciones de entrada. 
El registro A debe contener el n0- 
mero de pluma. El registro B, debe 
contener la primera tinta y el regis- 
tro C debe contener el segundo n0- 
mero de tinta. Asi pues, si el conte- 
nido de B y C son iguales la tinta apa- 
recer6 inalterable, de Io contrario di- 
cha tinta ser6 parpadeante. 
Condiciones de salida. 
Los registros AF, BC, DE y HL se 
corrompen, todos los dem6s son pre- 
servados. 
Una vez elegidos los colores con 
los que vamos a trabajar, deberemos 
seleccionar con qu6 papel de fondo 
deseamos que aparezca dicha pan- 
talla, para ello utilizaremos otra vez 
una de las rutinas que el firmware 
nos proporciona. 
SELECIONA PAPEL. #BB96 
Selecciona el papel de fondo con el 
cual queremos trabaiar en la venta- 
na elegida. 
Condiciones de entrada: 
El registro A debe contener la tin- 
ta a utilizar. 
Condiciones de salida: 
Se corresponden los registros AF y 
HL. Los dem6s registros se preset- 
van. 

Borrado de ventanas 

Una vez seleccionado el papel de 
fondo, deberemos limpiar la venta- 
na en la que se est6 trabajando, pa- 
ra que dicho papel aparezca real- 
mente como fondo de dicha panta- 

Asi pues, el siguiente paso ser6 
provocar un '¢L$' de pantalla. Para 
este prop6sito Ilamamos a la siguien- 
te rutina del firmware: 
BORRA LA VENTANA SELECCIO- 
NADA. #BB6C 
Provoca un '¢1.$' en la ventana se- 
leccionada, colocando como fondo 
el papel elegido previamente. 
Condiciones de entrada: 
No existe ninguna condici6n. 
Condiciones de salida: 
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Se corresponden los registros AF, 
BC, DE y HL. Se preservan los restan- 
tes registros. 
El paso siguiente, ser6 indicar con 
qu6 plumas y papel deseamos impri- 
mir el texto en pantalla, Io cual ya sa- 
bemos hacer puesto que se ha expli- 
cado anteriormente yen el capitulo 
anterior. 
Otra de las cosas que se deben de- 
finir antes de pasar a la impresi6n de 
cualquier texto, ser6 el color del 
'BORDI:R', para ello se Ilamar6 a la 

apropiada rutina del firmware. 
SELECCIONA COLOR DEL BORDE. 
#BC38 
Selecciona los dos colores que se 
van a utilizar como 'BORII:R'. Si los 
dos colores son iguales, el borde 
aparecer6 inalterable, de Io contra- 
rio 6ste aparecer6 parpadeante. 
Condiciones de entrada: 
El registro B debe contener el pri- 
mer color y el registro C debe conte- 
ner el segundo color. 

Condiciones de salida: 
Se corresponden los registros AF, 
BC, DE y HL, y se preservan los res- 
tantes. 
Una vez seleccionadas las condi- 
ciones con las que se va a imprimir 
el texto, ya podemos empezar a pre- 
parar las rutinas de impresi6n. 

Rutinas de impresin 

Dado que tendremos que imprimir 
dos tiras horizontales y dos vertica- 
les, hemos preparado sendas rutinas 
que provocar6n dicha impresi6n, 
'PINttOR' que imprime las tiras ho- 
rizontales y 'PINVI:R' que se encar- 
gar6 de pintar las columnas. 
Antes de Ilamar a dichas rutinas, 
deberemos cargar el registro HL con 
la pasici6n initial de impresi6n de 
pantalla y Ilamar a dichas rutinas que 
se encargar6n de incrementar ade- 
cuadamente las posiciones de impre- 
si6n. 
Estuadiaremos en primer lugar 
'PINHOR'que es la encargada de la 
impresi6n de las filas. 
Para producirla, preparamos un 
bucle cuyo contador ser6 el registro 
B. No hemos elegido el registro B 
por capricho, sino por la facilidad 
que nos proporciona, ya que la ins- 
trucci6n: 
DJNZ 
se encarga de decrementar dicho re- 
gistro, compararlo con cero, y si es 
cero se para el bucle yen caso con- 
trario se ejecuta de nuevo hasta que 
B sea cero. 
Asi pues, cuando se entra en esta 
rutina Io primero que hacemos es co- 
Iocar el cursor en la posici6n de im- 
presi6n. 
PINHOR: CALL #BB75 
A continuaci6n cargamos el regis- 
tro B (contador de bucle) con 40, ya 
que estos son los caracteres que en- 
tran en una fila en modo 1. 
LD B,40 
en este momento es donde se inicia 
el bucle. Ahora deberemos cargar 
en el acumulador el c6digo ASCII del 
car6cter que deseamos imprimir (en 
este caso ser6 el 202). 
BUCI: LD A,202 
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para que la rutina del firmware co- 
rrespondiente ejecute la impresi6n: 
CALL #BB5A 
a continuaci6n debemos comprobar 
si el bucle ha finalizado o no: 
DJNZ 13UC1 
esta instrucci6n como hemos dicho 
anteriormente, se encarga de decre- 
mentar y comparar el registro 13 con 
cero, asi pues, este bucle se deber6 
repetir 40 veces. 
La rutina de impresi6n de colum- 
nas, utiliza tambi6n el registro B co- 
mo contador de bucle. Pero en este 
caso, se deber6 calcular la posici6n 
de impresi6n en cada pasada, ya 
lue de Io contrario se imprimiria en 
orma horizontal. 
PINVER: LD B,24 
BUC2: PUSH HL 
en este caso cargamos el registro E3 
con 24, ya que estas son las posici6n 
a imprimir, y adem6s preservamos el 
registro doble HL, ya que este regis- 
tro se corrompe cuando se llama a 
la direcci6n del firmware encargada 
de posicionar el cursor. 
CALL #B1375 
a continuaci6n cargamos el acumu- 
lador con el valor del car6cter a im- 
primir y provocamos la impresi6n en 
pantalla. 
LD A,202 
CALL #B135A 
seguidamente recuperamos el conte- 
nido del registro HL e incrementamos 
la posici6n vertical de pantalla. 
POP HL 
INC L 
y por 01timo comprobamos si el bu- 
cle ha finalizado, si es asi, retorna- 
mos de la rutina y en caso contrario, 
6ste se repite hasta que el contenido 
del registro B sea cero. 

1AO ; 
170 Xf'IR A 
IRO I D 
t qn CAIt. 
'7or ; 
• 2l,n |HODF 1 
??,n ; 
4o CAI I_ 
?60 ; PAPFR n 
?70 ; 
?go CAII 
"10 ;'1S 
"2n ; 
-v,n CAII 
"50 ; PAPFR  
"Tn I D A, 
4n ;PWN I 
47( I_D A. I 
4 CALI #RR 
44( 
45 ;BROE 1 
46n ; 
47 I  , #A1I 
4g AI L # 
4qA  
A ; IHPRER[ON E I_A I. INA 
510 ;SUPERIOR HORIZONTAL 
5 ; 
50 I 0 HI., #1 1 
540 CALL TN 
55n ; 
n ; TMPRESTON O I.A I-INCA 
57A  INFERIOR HORTTT 
 ALL PNR 
630 ;QERTIC TTQLITERA 
64 ; 
5 L 
660 CALL PT NVER 
67A ; 

10 FOR N=&An00 TO 
70 READ AISIJMA=SUMA+A 
4O NEXT 
50 IF SUMATDgD TH-N PRINT "ERROR 
EN DATAS" 
an DATA 
70 DATA 
80 DATA 50188175,1I,I,205 
90 DATA 5o, IBg,a2i,2os,14,181 
I¢;0 DATA 

7 
I1 DATA 
120 DATA 705,144,187,1II75 
13/ DATA 
140 DATA 1&041,20579,160 
150 DATA 33,1,I,20592,160$$ 
I&O DATA 1,4020592,16n,?05,4 
170 DATA 187,2AI2O5,117,187,&,40 
180 DATA 
lO DATA 201,&24,2292A5I|7,187 

00 DATA &2,20205,90,187,25,44 
210 DATA l&,24320IOOOO 

10 INk' ,slNk" 1,?4:TN 0,1 
? NODF IsPAPER OsCI.S 
0 PAPER :DORDER I 
 FOR 1 TO 
5o LOCATE n,I:PRINT 
60 LOCATE n?4:PRINT 
70 NEXT 
o FOR n=; TO 4 
90 LOCATE InsPRINT 
1¢0 LOCATE 40n:PRINT CHR$<2n2) 
110 NEXT 
I WHTI.E NEY$ ="sWEND 

In 
Ilill 
[] II 
in II 
nl i 
Ii il 
I I 
I II 

/80 ;IHPRESTON DE I A COIIIMNA 
690 ;VERTICAl DEREEHA 
700 ; 
710 LD HII,12RI 
72n CALL PTNVE'_R 
730 ; 
740 ;ESPEPA AgUE SE PUISF IJNA TECI_A 
750 ; 
770 PET 
780 ; 
@0 ;RI}T|NA DE IHPRESION HrRIONT. 
80 ; 
81o PNHOR: CAI.L #BB75 
80 LD 
8 DUCI: I_D A202 
840 CALL #BBSA 
85o DJNZ BIJC; 
860 RET 
87A ; 
FIDA ;RUTINA DE IMPRESION VERTICAL 
890 
90 PINVFR: I D R24 
910 BUC?s PLISH Hi_ 
970 CAlL #DR75 
90 LD 
90 POP HL 
960 INC I. 
q7A DN7 BtlC? 
9R0 R[T 
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C! Duque de Sesto, 50. 28009 Madrid 
Tel.: (91) 274 53 80 

(Metro O'Donnell o Goya) 
Aparcamiento gratuito en Felipe II 

I Ofertas en software: 2 progromas al precio de 1 y adem6s regalo fin de curso una calculadora completamente gratis, iiAsombroso!! 
Verdad? 

BAT MAN 2°300 ptas. KUNG-FU MASTER 2°300 ptas. 
ROCK'N LUCHA 2.300 ptas. SABOTEUR 2.300 ptas. 
YIER AR KUNG FU 2.300 ptas. PING PONG 2.300 ptas. 
THE WAY OF THE TIGER 2.300 ptas. MILLION II 0000 ptas. 
WEST BANK 2.100 ptas. OLETORO 2.300 ptas. 
CAMELOT WARRIORS 2.300 ptas. TURBO ESPRIT 2.100 ptas. 
RAMBO 2.300 ptas. SABRE WULF 1.650 ptas. 
WORLD CUP (DISCO) 3.300 ptas. BATALLA DE LOS PLANETAS 2.100 ptas. 
MILLION II (DISCO) 3.300 ptas. SABOTEUR-COMBAT LINX DISCO 3.300 ptas. 
RAMBO-MATCH DAY (DISCO) 3.300 ptas. 

SOFTWARE DE REGALO (OFERTA 2xl) I 
DECATHLON BEACH HEAD SOUTHERN BELLE 
DRAGONTORC 

.,.,, SINTETIZADOR DE VOZ EN L. 
LAPIZ OPT.u CAfiTELLANO 
,3.295 PTAS. "r.'50 PTA' I 
CASSETTE ESPECIAL ORDENADOR 
........ AMPLIACION DE MEMORIA ANTA 64 K.3 I 
:.,: t, iA. 12.500 PTAS. I 
L20°/o DE DESCUENTO SOBRE P.V.P. I 
,NTA VIRGEN C15 69 I LO""TT"S '' . eo 

CPC-464, CPC-6128, PCW-8256 

iiLLEGARON LAS REBAJAS DE VERANO A MICRO 1!! 

QUICK SHOT I OFERTAS EN JOYSTICKS 1.395 
QUICK SHOT II 1.695 
QUICK SHOT V 1.695 

PEDIDOS CONTRA REEMBOLSO SIN NINGUN GASTO DE ENVIO TEL. (91) 274 53 80 
0 ESCRIBIENDO A.' MICRO-1. CI DUQUE DE $ESTO, 50. 28009 MADRID. 

Tiendas y distribuidores grcndes descuentos. 
Dirigirse a Diproimsa. CI Galatea, 25. Tel. (91) 742 20 19 6 742 79 68 



ALIEN 

HIGHWAY 

Los afortunados que hayan 
vivido la apasionante 
aventura del Higway 
Encounter, tlenen ahora la 
O#rOrtunidad de seguir en la 
echa con Aflen Highway 
Encounter 2. 

r autopista de la 
muerte se exfiende ante nosotros, ro- 
deada por un ttrico paisaje de for- 
mas geom6tricas. Sobre su superficie 
de Iosas regulares, un h6roe solita- 
rio se enfrenta a los pe(igros de la 
larga travesia. 
Programado para matar, nada le 
detendr6 hasta que sea completa- 
mente destruido; su meta: alcanzar 
el final de la peligrosa via. 
Todo comenz6 con el irresistible 
aumento del poderio del Imperio 
Alien, los cuales, en su 01tima facto- 
ria de robots de guerra, est6n consi- 
guiendo unas elevadas cifras de pro- 
ducci6n. 
Estimadas las cifras obtenidas por 
los servicios de espionaje, se ha Ile- 
gado a la condusi6n que de conti- 
nuar la fabricaci6n de m6quinas de 
guerra aut6nomas a ese ritmo, en un 

oo 

tiempo de 20 dias la proporci6n de 
robots del Imperio doblaria la fuer- 
za defensiva de Vortones de nuestro 
territorio. 
Despu6s del golpe de mano ases- 
tado pot los Vortones en Highway 
Ehcounter, que tuvo como conse- 
cuencia la total destrucci6n de la ba- 
se de invasi6n Alien, no se compren- 
de c6mo 6stos han conseguido reha- 
cerse con tanta rapidez. 
En aquella vez, la misi6n se Ilev6 
a cabo por una columna de cinco ro- 
bots, que arrastrando la terabomba 
consiguieron depositarla en el cora- 
z6n de la base alienigena. 
Ahora la situaci6n ha cambiado 
radicalmente. Con el desarrollo del 
nuevo modelo de la generaci6n de 
Vortones de guerra, el 6xito de la 
misi6n se encomienda a un solitario 
modelo experimental que deber6 co- 
Iocar la bomba en posici6n de rue- 
go. Mejoradas sus caracteristicas de 
disparo y aumentados considerable- 
mente sus blindajes, sus posibilidades 
de 6xito se basan en recargar de 
energia la tetrabomba, en las distin- 
tas estaciones situadas a Io largo de 
la autopista. 
La entrada al complejo industrial 
no ser6 f6cil, y solamente un gran ro- 
bot de combate podr conseguir re- 
sultados positivos. Acostumbrados a 
los magnificos juegos de la casa Vor- 
tex, nos preguntamos qu6 oscuros 

|!J'j :'o /"'L"' motivos habr6n Ilevado a sus crea- 
dores de software a realizar una se- 
ALIEN ter. 
HIGHWAY de L 
 .c ou re _ apt 
Hig 
le n 
" si6r 
  ROe 
 Io r 
sivo. 
ASTRD' CPC 

gunda versi6n del Highway Encoun- 
La sequia de ideas puede ser uno 
de los motivos; otro puede ser el 
aprovechar el 6xito obtenido por 
Highway Encounter, e intentar sacar- 
le nuevos frutos en una segunda ver- 
si6n, como si de una pelicula de 
Rocky se tratara. Esperemos que pot 
Io menos en este caso no se Ilegue a 
la cuarta versi6n, que ya seria exce- 
Sequia de ideas aparte y dem@s, 
Alien Highway es un producto de ino 
negable calidad. En la nueva aven- 
tura, el decorado ha cambiado ra- 
dicalmente, bordeando la autopista 
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un paisaje geom6trico que nada tie- 
ne que ver con el marco ecologista 
de la aventura anterior. 
El planteamiento de la aventura si- 
gue siendo el mismo, con la diferen- 
cia de que ahora, en vez de dispo- 
her de cinco robots para completar 
el recorrido, tenemos un 0nico Vor- 
ton con cinco vidas, gracias a su es- 
cudo protector. 
Las trampas que nos esperan en 
ruta son distintas de las de la versi6n 
anterior. Nuevos medios mec6nicos 
y esferas de energia nos aguardan 
impacientes; en esta versi6n hemos 
de ser especialmente cuidadosos con 
los bordes de la via, pues el contac- 
to con los mismos es mortal. 
Tambi6n habremos de valernos 
ta vez de los obst6culos m6viles pa- 
ra superar determinadas fases, inter- 
poni6ndolos entre nosotros y una 
muerte segura. 
Las zonas de reabastecimiento son 
imprescindibles para nuestro Vorton, 

en elias se recarga la energia de 
combate y el escudo protector recu- 
pera su compacta estructura molecu- 
lar, daada por los anteriores en- 
cuentros. 
En cuanto al recorrido por la auto- 
pista, hemos de mencionar que en 
Alien Highway, las pantallas no se 
suceden en un orden concreto como 
ocurria en la aventura anterior, aho- 
ra aparecen al azar ante nuestros 
ojos, Io cual condiciona en porte 
nuestra estrategia de lucha. 

v 4J 
,,: 
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Los gr6ficos, como cualquier obra 
de los creadores de Vortex, son de 
una calidad y precisi6n fuera de los 
comOn, constituyendo el plato fuer- 
te del programo. 
Los nuevos alienigenas que nos 
atacan y las trampas y dem6s ele- 
mentos m6viles, tiene un gran atrac- 
tivo y su animation y efectismo son 
asombrosos. 
Una pena que tanta maravilla no 
se haya aplicado a un programa 
completamente nuevo, casi derro- 
ch6ndola en una simple versi6n. 
Los conocedores de Highway En- 
counter ya saben io que van a en- 
contrar ante sus pantallas, los que no 
hayan podido disfrutar de la muro- 
villo anterior de Vortex, tienen aho- 
ra una estupenda posibilidad de 
comprobar por qu Vortex es una 
de las casas punteras en el mundo de 
los juegos de ordenador. 



induda 
alguna 
A trav6s de esta sec¢i6n se pre- 
tende resolver, en la medida de Io 
posible, todas los posibles dudas 
que <<atorrnenten> a todas las 
personas interesadas en el mundo 
det AMSTRAD, sean o no poseedo- 
res de uno y, si Io son, se encuen- 
tren en cualquier nivet de destreza 
en su manejo. 
Sernanalrnente, aparecen en estas 
p6ginas tas consuttas de la mayor 
cantidad de usuarios posible; ella re- 
dundar6 en un meior servicio yen 
un contacto m6s estrecho entre to- 
dos nosotros a trav6s de la revista. 
SIN DUDA ALGUNA est6 
abierta a todos. 

ACERCA DEL PROGRAMA 
¢¢HAGGIE 
Tengo un AMSTRAD CPC-464, y 
les agradeceria que me contestaran 
alas siguientes preguntas: 
1. Soy comprador habitual de 
M.H. Amstrod, y en el n. ° 29, en 
la Serie Oro, traen un juego: Hag- 
gie, par Io que se ve, debe de ser un 
buen juego, pero el problema mio es 
que no me sale. Qu6 pasa? Est6 
mal editado? Lo he repasado tres ve- 
ces y no me sale. 
2. Cuando haces un programa, Io 

deseas grabar y adem6s no quieres 
que te encuentren el listado, se de- 
be teclear .... save <<titulo del progra- 
ma>>, P... ? 
Francisco Granero 

1) Que nosotros sepamos, e/pro- 
grama ¢¢Haggie, de AMSTRAD Se- 
mana/ ndmero 29, funciona perfec- 
tamente en cualquier Amstrod de la 
serie CPC. No obstante, coma nos 
comenta que tiene un 464, podr/a te- 
her prob/emas si posee una unidad 
de disco. La raz6n es /a siguiente: 
cuando se /e ¢endia a146 un pro- 
grama muy largo, coma ¢¢Haggie, 
la ROM del disco comienza a cam- 
portarse de manera muy extraa, o 
a/ menos /as nuestras Io hacen: tie- 
nen la desagradab/e costurnbre de 
comerse, litera/mente hablando, un 
trozo de/programa, as6 coma sue- 
na; de pronto, un grupo de ffneas de 
las gltimas, crfticas para la buena 
marcha de la ap/icaci6n, desapare- 
cen en las voraces fauces de la ROM 
de/disco. 
As/, a/ ejecutar el programa, apa- 
recen todo tipo de mensajes de error 
extraos, fundamentalmente refe- 
rentes a errores de sintaxis en flneas 
de programa que no existen. 
Sospechamos que esto estd ma/ de 
¢¢fdbrica en la ROM de/disco, pero 
na podemos asegurar que suceda en 
todas las unidades. Si despu6s de 
ta prolija explicaci6n resulta que us- 
ted no tiene disco, bien, nuestra mds 
sincera felicitaci6n par haber conti- 
nuado la lectura hasta aquf; Ilegados 
a este punto, par desgracia/o (nico 
que puede suceder es que haya us- 
ted tecleado ma/ el programa. 
2) Su segunda pregunta, par for- 
tuna, tiene una respuesta mucho me- 
nos evanescente: sf. Para grabar un 
programa Basic en modo prategida 
tiene usted que hacerlo coma indica, 
es decir: save "'nombre", P 

£JECUTAR BINARIO 
Estimados amigos de MICRO- 
HOBBY AMSTRAD, un programa en 
c6digo m6quina se puede hacer fun- 
cionar baiando la ramtop al nivel 
adecuado con el comando memory, 
cargando el programa con el co- 
mando LOAD y ejecut6ndolo con el 
comando CALL. C6mo se puede ha- 
cer directamente, es decir con RUN 
"nombre programa"? Yo Io he in- 
tentado asiy me da Memory full. Lo 
que les pido, par tanto, es la forma 
de grabar el c6digo m6quina con 
autoejecuci6n. 
C6mo se puede quitar la cabece- 
ra a los programas? 
Hay algOn error en el programa 
HAGGLE publicado en su revista n. ° 
29? Lo he tecleado y comprobado 
entero, y cuando el tiempo (TIME) 
Ilega a 1975 el programa se para 
poniendo, exactamente: Error... 2 at 
line y no pone el n. ° de linea. 
Gracias par su atenci6n. 
Jos A. de la Fuente 
Basauri (Vizcaya) 

Tu prob/ema es muy sencil/o de re- 
solver, y la soluci6n se encuentra uti- 
lizando los pardmetros de la instruc- 
ci6n SAVE a tal efecto. Esta arden 
tiene la siguiente estructura: 
SAVE "'nombre del programa", b, 
IN/, LON, EJEC 
La b, le indica que Io que va a gra- 
bar es una tira de binario, el primer 
pardmetro INI, es a partir de d6nde 
quieres salvar, el segundo la Iongi- 
tud de la tira que quieres almacenar, 
y el tercero, clave del asunto para 
cuando vayas a hacer RUN, a par- 
tir de qu6 direcd6n ha de comenzar 
a ejecutarse. De esta forma tan sen- 
cilia podrds ya hacer: 
RUN "'nombre del programa'" 

CAPITAN CORTES, 17. TELEF.-228607.ORENSE DISTRIBUIDOR INDESCOMP PARA ORENSE: 
Servimos a tiendas y almacenes 

• I!.,  : .... "  LO TENEMOS TODO SOBRE 
• " ORDENADORE- -- 
,.., "--4 Precios especiales para el m m ,  , , 
[ '  " " ' ' PCW 8256 papelde impresara, programas de gesti6n 
I  ' .....  
 libros y todo tipo de accesorios. 



HOBBY sale este mes a la calle con un mont6n 
de temas ins61itos que seguro te apasionarn. 
/,Sabias, pot ejemplo, que puedes set un campen 
de baloncesto aunque midas menos de 1,80?/,O que 
es posible domar una planta carnivora y medir sus 
esfimulos? HOBBY te enseha lambin cosas tan dispa- 
res como los pasos a seguir para irte a un pueblo aban- 
donado o el arte de volar cometas. Y, demos, todos los 
meses regalamos una cadena de m0sica. 
Ten un HOBBY todos los meses. 
iYa est en tu kiosco el n. ° 2! 



erccld, o 
colTIUn 

Con el objeto de fomentar las rela- 
clones entre los usuarios de AMSTRAD, 
MERCADO COMUN te ofrece sus pagi- 
has para publicar los pequeos anuncios 
que relacionados con el ordenador y su 
mundo se ajusten al formato indicado a 
continuaci6n. 
En MERCADO COMUN tienen cabida, 
anuncios de ventas, compras, clubs de 
usuarios de AMSTRAD, programadores, 
yen general cualquier clase de anuncio 
que pueda servir de utilidad a nuestros 
lectores. 
Envianos tu anuncio mecanografiado 
o: HOBBY PRESS, S.A. 
AMSTRAD SEMANAL. 
Apartado de correos 54.062 
28080 MADRID 
iABSTENERSE PIRATAS! 

Vendo gran cantidad de 
programas a 600 ptas. cada uno 
para el ordenador Amstrad 
CPC-464, entre ellos estan: 
Exploding Fist, Raid, Rocky, 
Draagontorc, etc. Urge por 
cambio de ordenador. Escribir a: 
Antonio Bernabau Pell0s. C/ 
Obispo Rocamora, 6, 2. ° B. 
Orihuela (Alicante). 

Desearla contactar con usuarios 
del Amstrad CPC 6128 (unidad de 
disco). Remitirse a: Belan 
Soldevilla Peir6. Placa Pais 
Velencia, 7. Potries iValencia). 

Vendo ordenador Amstrad con 
unidad de disco incorporada y 
monitor en color. Totalmente 
nuevo y completo. Precio a 
convenir. Tambin venderia 
monitor o teclado por separado. 
Contactar con Gregorio al 
telafono de Barcelona (93) 
353 68 53. Noches. 

Desearia cambiar el Dragontorc 
(original), por uno de estos 
programas: Exploding fist, Pole 
position, Knight lore, Pyjamarama. 
Tambin me interesan otros 
programas. Escribir a: Francisco 
Javier Mndez Serrato. C/ 
Pedreras, 54. La Linea de la 
Concepci6n (C6diz). 
ooooooooooooooooo 
programas: Combat Lynx, Alien 8, 
Stomp, Multi Gesti6n; todos par 
cualquier programa comercial que 
se interesen ofrecerme. Escribir a 
Paco Lozano. C/Ganduxer, 119. 
08022 Barcelona. Contestar6 
todas los cartas. Tel. 248 03 89. 

DeseaHa contactar con usuarios 
de Amstrad para intercambio de 
juegos e informaci6n general. 
Preferentemente de Burgos. 
Puedes dirigirte a Jos6 Javier 
Torres Moreno. C/ Defensores de 
Oviedo, 1, 5. ° izq. 09002 Burgos. 
Tel. (947) 26 27 99. 

Desearia cambiar o vender los 
siguientes programas: Arnhem, 
Dummy run, Brian Jacks superstar, 
Everyone's a wally, Exploding fist 
y Gremlins. 
LLamad al tel. (986) 41 30 56 o 
escribir a Miguel Angel Casares. 
Avda. Hispanidad, 59. Vigo 
(Pontevedra). 
Vendo o cambio juegos, 
prometo respuesta, mandar a 
poder ser lista, Ilamar al tel. (976) 
86 77 28 o escribir a Borja 
Sancho. Plaza San Francisco, 7. 
Borja (Zaragoza). 

COM ER CIA L L EVA N TE 
BAZAR TETUAN 
Distribuidor olicial de Amstrad. Speclravideo. 

Dynadala, Toshiba, etc. 
- AMSTRAD 6128 VERDE-DISCO 84 500 PTAS 
-- AMSTRAD 6128 COLOR.DISCO 119.500 PTAS. 
-- AMSTRAD PCW 8256 129.(]00 PTAS 
- A,ISTRAD 472 VERDE.CA$SET 5900D PTAS 
-- AMSTRAD ,72 COLOR.CASSET 90.000 PTAS 
-- ORDENADOR DYNADATA 
-- DPC 200 64 K 3400D PTAS. 
IMPRESORA BROTHER .'1.10{)9 36.000 PTAS 
-- IMPRESORA BROTHER HR-S 21.000 PTAS. 
JOYSTICK INVESTIK 1 200 PTAS. 
-- JOYSTICK QUICK SHOT II 1.600 PTAS 
IVA INCLUIDO 

SERVICIO TECNICO 
Arenal. 9. 28013 MADRID Tel.: 265 68 55 

Desear(a contactar con usuarios 
de Amstrad para intercambio de 
programas, libros, etc., tambian 
me interesaria contactar con algOn 
club de Amstrad. Respondo a 
todos. Escribir a Juan Carlos 
Plaza. C/Alberto Aguilera, 16. 
28015 Madrid. 

00000000000000000 

Vendo programa para Amstrad 
CPC 6128, CPC 664, CPC 464. 
<C6mo realizar tus propios GDU 
mas un conversor binario decimal 
mas un conversor decimal binario. 
Todos originales por s61o 1.500 
ptas. Interesados ponerse en 
contacto a: Javier Sanchez. C/ 
Segre, 106, escalera B, 6tico 2. a 
08030 Barcelona o bien Ilamar ai 
(93) 311 10 47. 

Desear[a contactar con usuarios 
del Amstrad 6128/664/464 para 
intercambiar programas, sobre 
todo utilidades, y trucos. Los 
interesados escribir a Juan A. 
Blanco Garcia. Avda. Tomas 
Gimanez, 29 Ent.-2. Hospitalet 
(Barcelona). 

O0000000000000000 

DeseaHa confacfar con usuarios 
del PCW 8256 para intercambio 
de programas e ideas y usuarios 
del CPC 664 o CPC 128 
interesados en CP/M. Santi Masi 
Plaza. Tvia. Valls, 5. Igualada 
(Barcelona). 

OOO00000000000000 

DeseaHa contactar con usuarios 
de Amstrad CPC 464 para 
intercambio de programas de 
todo tipo. Escribid a: Mary 
G6mez Olcina. C/Arzobispo 
Fabian y Fuero, 21, 11.°. 46009 
Valencia. (96) 349 28 53. Enviar 
lista de programa. 

O0000000000000000 

Por cambio de ordenador, 
vendo o cambio juegos para el 
Amstrad son todos compatibles. 
Poseo unos 100. Urge por mill. 
Los interesados Ilamen al tel. 
(955) 59 04 58 o escriban a Julian 
Garcia Barbosa, Los Cantos, 
chalet 7. Riotinto (Huelva). 

34 ',OhO88Y AMSTRAD 



EL MEJOR JUEGO 
DE LA HISTORIA 

IN, 

nI-IONIRLE PI::IRI TOOOS LOS SISTE/VIS 



j I 

POR LA COMPRA DE TU ORDENADOR ESTE EQUIPO COMPLETO DE BASKET ES TUYO. 
TAMBIEN REGALO DE INTERFACE 2 Y UN JOYSTICK AL COMPRAR TU SPECTRUM 128 O PLUS 

• Como siempre curso gratis de informtica. 
• Spectrum, Q.L., Commodore, Amstrad, Spectravideo 
y MSX. 
• Teclado multifunciSn con sonido, 13.200 ptas. 
• Joystick + Interface + Kempston, 3.200 ptas. 
• Lpiz Optico, 3.500 ptas. 
• Bibliografia 25% Dto. 
• Tarjeta de Socio Club Sinclair Store. 

• Servicio Tcnico de Reparaciones, 3.700 ptas. 
• Necesitamos distribuidores, somos mayoristas. 
• AmpliaciSn de memoria Amstrad 464 5 6128 256 K, 
20.900 ptas. 
• Disco de Silicio, 19.900 ptas. 
• Por la compra de un spectravideo, 328, 25.000 ptas. o 
spectravideo 728 MSX, 39.000 ptas. Te regalamos un 
Joystick Quickshot I ms 10 cintas y un cassette. 

Amstrad 8512:169.900 (IVA incluido). Amstrad 8256:129.900 (IVA incluido). Amstrad 6128:84.900 (IVA incluido). 
Liquidaci6n Software: West bank, Gremlins, Ole Toro y 200 tftulos ms, desde 990 ptas, 

50M05 PRO ...-, 
BRAVO MURILLO, 2 DIEGO DE LEON, 25 
(Glorieta de Quevedo) (Esq, Nez de Belboa) 
Tel. 446 62 31 - 281115 MADRID Tel. 261 88 01 - 28006 MADRID 
Aparcamiento GRATUITO Magallanes, 1 Aparcamiento GRATUITO Nhez de Balboa, 114 

' 5 
AV. FEUPE II, 12 
(Metro Goya) 
Tel. 431 32 33 - 28009 MADRID 
Apacamiento GRATUITO Av. Felipe II 



